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Introduction 



This is the Attache Basic Input/Output (BIOS) source listing, version 
2.2,3. "2.2" is the current version of CP/M. ".3" is Attache's current 
revision. 

BIOS is the hardware dependent section of CP/M r (Attache's operating 
system). BIOS interfaces with the Basic Disk Operating System (BDOS) 
portion of CP/M to execute instructions at a physical level. 

BIOS resides on the first three tracks of a system diskette, and is 
loaded into memory at power on if the system diskette is properly 
inserted in Drive A. An Erasable Programmable Read-only Memory chip 
(EPROM) contains the initial software which loads the BIOS Bootstrap 
Loader from the disk. 

The BIOS Bootstrap then loads the CP/M operating system into the 64K 
bytes (256 pages of 256 bytes each) of Attache memory as summarized in 
the following illustration. 



BASIC INHTT/OUTPOT SYSTEM 
(BIOS) 



BASIC DISK OPERATING SYSTEM 
(BDOS) 



CONSOLE COMMAND PROCESSOR 
(CO?) 



TRANSIENT PROGRAM AREA 
(TEA) 



CP/M BUFFERS, REGISTERS, INSTRUCTIONS 



^ 8 pages 
< C400 {hex} 



> 195 pages 



FFFF [hex} 

^ 38 pages 

DAOO {hex} 
^. 14 pages 
CC06 {hex I 



C 100 {hex} 



> 



1 page 



CP/M MACRO ASSBM 2.0 



#001 



ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 



0001 = 
0000 » 
0006 = 



TITLE 'ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP.' 
BIOS FOR VALET AND BASIC GRAPHICS (REV 1.2) 
LAST 4 SECTORS ON SIDE 1 DELETED 



OTRONA 500 SERIES CP/M 2.2 BIOS & BOOT I 



S.GRAY 11-08-1982 
R.LINGEMANN 
R.WINTER 

MACLIB Z60 



SELECT DISK PARAMETERS 



SIDES EOU 1 

TPI BQU 

STPRAT EOU 6 

; CONFIGURATION 



SIDES OONE <> 0=TWO 

TPI 0*48 <> 0-96 

STEP RATE IN MS (MUST BE BETWEEN 2 
AND 32 IN EVEN INCREMENTS.) 



0000 = 
0038 * 
9000 * 
C400 * 
CC06 * 
DAOO * 

0002 = 
0004 * 

0003 = 
0006 s 

0009 * 
0003 * 
0081 = 

0010 » 
FEOO » 



STACK EQU ENDMRK«-l;TOP OF STACK 

MSIZE SOU 56 ;CP/M VERSION MEMORY SIZE IN K-BYTES 

BIAS EQU (MSIZE-20>*1024 

CCP EOU 3400H+BIAS ;BASE OF CCP 

BDOS EQU CCP+806H ;BASE OF BDOS 

BIOS EQU CCP+1600H ;BASE OF BIOS 

NDISK EQU 2 ; NUMBER OF DISKS IN SYSTEM 

CDISK EQU 0004H ; CURRENT DISK NUMBER ADDR. 

MNTR EQU 000 3H ; EPROM MONITOR ENTRY 

MDISKOP EQU 0006H ; EPROM DISKOP ENTRY 

MDSPLY EQU 0009H ; EPROM DISPLAY DRIVER 

IOBYTE EQU 0003H ; I/O BYTE LOCATION 

IOINIT EQU 81H ; INITIAL IOBYTE VALUE 

KBUFLN EQU 16 ; KEYBOARD BUFFER SIZE 

FILBUF EQU 0FE00H ; BUFFER SPACE FOR FORMAT 

: WILL BE CHANGED BY DISK ROUTINE 
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CP/M MACRO ASSEM 2.0 



#002 



ATTACHE BIOS & BOOT; COPYRIGHT 1961, OTRONA CORP. 





• I/O 


CONSTANTS 




0057 = 


TIMCWO 


EQU 


57H 


;TIMER CONTROL BYTE 


0002 " 


TIMTCO 


EQU 


02H 


;9600 BAUD 


0002 = 


TIMTC1 


EQU 


02H 


;9600 BAUD 




• ASCII CODES 






0007 = 


BEL 


EQU 


7H 


;BELL 


0008 * 


BS 


EQU 


8H 


^•BACKSPACE 


000D = 


CR 


EQU 


ODH 


CARRIAGE RETURN 


000A - 


CTRLJ 


EQU 


OAH 


;CTRL-J 


00C8 - 


CTRLJH 


EQU 


0C8H 


;CTRL-JH 


000B = 


CTRLK 


EQU 


OBH 


;CTRL-K 


000F = 


CTRLO , 


EQU 


■ OFH 


;CTRL-0 


0010 * 


CTRLP 


EQU 


10H ' 


;CTRL-P 


00D3 * 


CTRLPS 


EQU 


0D3H 


;CTRL-PS 


0011 « 


CTRLQ . 


EQU 


11H 


;CTRL-Q 


0090 « 


CTRLQP 


EQU 


90H 


;CTRL-QP 


0013 * 


CTRLS 


EQU 


13H 


;CTRL-S 


0018 = 


CTRLX 


EQU 


18H 


;CTRL-X 


001B = 


ESC 


EQU 


1BH 


;ESCAPE 


OOOC = 


FF 


EQU 


OCH 


;FORM FEED 


OOOA = 


LF 


EQU 


OAH 


;LINE FEED 


0020 = 


SPC 


EQU 


20H 


;SPACB 




• FLOPPY CONSTANTS 




0043 = 


RWCODE 


EQU 


40H+3 


;R/W COMMAND-2 OR 3 


012C * 


MTRTIM 


EQU 


300 


;5S MOTOR TIMEOUT 


0020 = 


MTRDLY 


EQU 


45 


;750MS. MOTOR START 



000D = 

0010 * 
000F = 
0000 - 



0000 » 

0001 = 

0002 = 



004C = 

0002 * 
0600 = 
0200 = 
OOOA = 
OOBE = 
00B6 ■ 

0003 = 



SRT 

• 

DHLT 
DHUT 
ND 



EQU 

EQU 
EQU 
EQU 



16-(STPRAT/2); HEAD STEP RATE 

16 ;DISK HEAD LOAD TIME 

OFH ;DISK HEAD UNLOAD TIME 

;DMA MODE 



CP/M DISK RETURN CODES 



WRALL EQU 

WRDIR EQU 1 

WRUAL EQU 2 

DISK DRIVE PARAMETERS 



;WRITE TO ALLOCATED 
;WRITE TO DIRECTORY 
;WRITE TO UNALLOCATED 



ALLTRK EQU 36+<40*TPI)+SIDES»<40*<40«TPI» 

BLS EQU (TPI OR SIDES)*! 

BLKSIZ EQU 1024«BLS;DIRECTORY BLOCK SIZE 

HSTSIZ EQU 512 ;HOST DISK SECTOR SIZE 

HSTSPT EQU 10 ;HOST SECTORS PER TRACK (CYL) 

ALLDSK EQU ALLTRK«5/BLS 

DSKSIZ EQU ALLDSK-<21-<BLS*7>-1> 

SYSTRK EQU 3 ;SYSTEM RESERVED TRACKS 
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0002 = 



CNTSEC EQU 



;HSTSI2/PHYSICAL SECTOR SIZE 



0004 
0026 
0003 
C200 
0027 
0060 
0002 



HSTBLK EQU HSTSIZ/126 ;CP/M SECT. PER HOST SECT. 

CPMSPT EOU HSTBLK • HSTSPT ;CP/M SECTORS PER TRACK 

SECMSX EOU HSTBLK- 1 jSECTOR MASK 

BAODR EQU CCP-HSTSIZ 

MAXTRK EQU 39+<40«TPI) 

DIRENT EQU 64»«SIDES OR TPI)*1) 

DIRALC EQU DIRENT/CBLKSIZ/32) 



00C0 



IF 

ALOCO 

BNDIP 

IP 

ALOCO 

BNDIF 

IF 

ALOCO 

ENOIF 



DIRALC'l 
EQU 8 OH 

DIRALC=2 
EQU OCOH 

DIRALCM 

EQU OFOH 



0100 



TPA 



EQU 
PAGE 



100H 
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; I/O 


PORTS 




OOBO = 


FPYBCA 


EQU 


OEOH 


00E1 = 


FPYBWR 


EQU 


0E1H 


00E2 = 


DSPBCA 


EQU 


0E2H 


00E3 = 


DSPBWR 


EQU 


0E3H 


0OE4 = 


STDBCA 


EQU 


0E4H 


00E5 = 


STDBWR 


EQU 


0E5H 


00E6 = 


SIOBCA 


EQU 


0E6H 


00E7 « 


SIOBWR 


EQU 


0E7H 


00E8 = 


DMACSR 


EQU 


0E8H 


00E9 * 


DMAWRR 


EQU 


0E9H 


OOEA = 


DMAWSM 


EQU 


OEAH 


OOEB = 


DHAWMR 


EQU 


OEBH 


OOEC = 


DMACBP 


EQU 


OECH 


OOED = 


' DMATMP 


EQU 


OEDH 


OOEE - 


SDSPY 


EQU 


OEEH 


OOEF = 


DMAWAM 


EQU 


OEFH 


OOFO . ■ 


DCOMM 


EQU 


OFOH 


00F1 = 


SCOMM 


EQU 


0F1H 


00F2 « 


DPRTR 


EQU 


0F2H 


00F3 = 


SPRTR 


EQU 


0F3H 


00F4 » 


BAUDC 


EQU 


0F4H 


0OF5 * 


BAUDP 


EQU 


0F5H 


00F6 = 


DSPINT 


EQU 


0F6H 


00F7 « 


FPYINT 


EQU 


0F7H 


00F8 * 


DPIOA 


EQU 


0F8H 



OOFA 



00F9 * 
OOFB * 
OOFC * 



DPIOB EQU 



SPIOA EQU 
SPIOB EQU 
SFLPY EQU 



OFAH 



0F9H 
OFBK 
OFCH 



FLOPPY STATUS PORT 
FLOPPY DATA PORT 
DISPLAY BASE & CURRENT ADDRESS 
DISPLAY BASE & WORD COUNT 
STD BUS BASE & CURRENT ADDRESS 
STD BUS BASE & WORD COUNT 
SIO BASE & CURRENT ADDRESS 
SIO BASE & WORD COUNT 
DMA COMMAND/STATUS REGISTER 
DMA WRITE REQUEST REGISTER 
DMA WRITE SINGLE MASK BIT 
DMA WRITE MODE REGISTER 
DMA CLEAR BYTE PNTR FLIP-FLOP 
DMA TEMP REG & MASTER CLEAR 
DISPLAY COMMAND/STATUS 
DMA WRITE ALL MASK REG BITS 
COMM PORT DATA 
COMM PORT STATUS 
PRINTER PORT DATA 
PRINTER PORT STATUS 
BAUD TIMER FOR COMM PORT 
BAUD TIMER FOR PRINTER PORT 
DISPLAY INTERRUPT C60HZ) 
FLOPPY INTERRUPT TIMER 
PIO PORT A DATA 

AO-7 * LATCH DATA OUT 
LO = MOTOR ON 
LI = GRAPHICS ENABLE 
L2 « BPROM ENABLE 
L3 7 DISPLAY BRTNS. 
8910 DATA I/O 
5832 DO-3 I/O 
5832 AO-3 OUT 
DO-3 I/O 



AO-7 
AO-3 
A4-7 
AO-3 
A4-7 



= 5101 

* 5101 AO-3 OUT 



PIO PORT B DATA 
BO-1 = 5101 A4-5 
B2-4 = OPERATION SELECT 

= 8910 ADDR LOAD 

1 - 8910 DATA LOAD 

2 = 5832 WRITE 

3 = 5832 READ 

4 * 5101 WRITE 

5 = 5101 READ 

6 = LATCH LOAD 

7 = NO-OP 
B5 * /'138 OPERATION STROBE 
B6 = /KEYBOARD DATA IN 
B7 * /KEYBOARD CLOCK OUT 

PIO PORT A COMMAND 
PIO PORT B COMMAND 
FLOPPY COMMAND/STATUS 
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;FLOPPY DATA 

;DISPLAY DATA 

;RAM VIRTUAL MAP DATA 

PAGE 



OOFD » 


DFLPY 


BQU 


OFDH 


OOFE » 


DDSPY 


EQU 


OFEH 


OOFF * 


DMAP 


EQU 


OFFH 



CP/M MACRO ASSBM 2.0 



#006 



ATTACHE BIOS & BOOT; COPYRIGHT 1961, OTRONA CORP. 



BOOT - LOADED INTO FEOOH BY PROM 



BOOT CODE WILL BE SAVED IN SECTOR 1 OF TRACK 
AND IS SET UP HERE TO ASSEMBLE ONE SECTOR LENGTH 
AHEAD OF THE CCP. THE ADDRESS OFFSET FACTOR BS 
IS ADDED WHERE NEEDED SO THE BOOT CODE WILL RUN 
WHEN LOADED AT IT'S STARTING ADDRESS OF 0FE00H 
THE BIOS CBOOT ROUTINE IS ALSO RUN HERE TO SAVE 
SPACE AS THE ONLY TIME THIS ROUTINE IS USED IS 
DIRECTLY FOLLLOWING A SYSTEM RESET. 



FEOO * 


MONSTK EQU 


0FE00H ;ADDR OF MON. STACK 6 DISK BUFF 


C200*= 


BTSTRT EQU 


CCP-HSTSIZ 


C200 


ORG 


BTSTRT 


3C00 = 


BOFF EQU 
•BOOT LOADER 


MONSTK-BTSTRT 


C200 C377FF 


JMP 


BOOT+BOFF ;GETSYS VECTOR 


C203 A7 


DB 


0A7H INDICATES CP/M TO MONH 



COLD BOOT 



C204+1824 



CBOOT: JR 
DB 



CBOOT1 
18H,CB00T1-S-1 



; CLEAR GRAPHICS & RESET SCREEN 
C206 1B5C1B3318SIGNON: DB ESC/V',ESC/3',18H 
C20B 43502F4D20 DB 'CP/M 2.2.3 Otrona ATTACHE <' 
C226 3536 DB <MSIZE/10)+'0',<MSIZE MOD 10>*'0' 

C228 4BBE DB 'K'/>'*80H 



C22A F3 


CBOOT i: 


DI 




jTURN OFF INTERRUPTS 






SET UP 


PERIPHERALS I/O VIA TABLE 


C22B 215AFF 




LXI 


H40TBL+B0FF ;POINT TO I/O TABLE 


C22E 7E 


CBLl: 


MOV 


A,M 




C22F 4F 




MOV 


C,A 


;C=PORT 


C230 3C 




INR 
JRZ 


A 

CBJl 


;JUMP OUT IF DONE 


C231+280B 




DB 


28 H, CBJl 


-$-1 


C233 23 




INX 


H 


;B*COUNT 


C234 46 




MOV 


B,M 




C235 23 




INX 


H 




C236 7E 


CBL2: 


MOV 


A,M 


;MANUAL BLOCK OUTPUT 






OUTP 


A 


; SO SLOW DEVICES 


C237+ED79 




DB 


0EDH,A»8 


♦41H 


C239 23 




INX 


H 


; CAN KEEP UP 



CP/M MACRO ASSBM 2.0 #007 ATTACHE BIOS & BOOT; COPYRIGHT 1961, OTRONA CORP. 



C23A+10FA 

C23C*18F0 

C23B 212C01 
C241 226DPA 
C244 3B8S 
C246 3246PA 

C249 AP 



CBJl: 



OJNZ 


CBL2 


OB 


lOH,CBL2-0-l 


JR 


CBL1 


DB 


18H,CBLl-$-l 


LXI 


H,MTRTIM 


SHLO 


MTRCNT 


MVI 


A,85H 


STA 


LSTATE 



INIT VARIABLES & BUFFERS 
XRA A 



C24A 21FAP9 
C24D 062F 
C24P 77 
C250 23 

C251*10FC 

C253 324DFA 
C256 3E81 
C2S8 320300 
C25B 310000 



C25S CD63F2 
C261 PEOE 

C263+2009 
C265 0601 
C267 CD63F2 
C26A FEOS 

C26C+2838 



CBL3: 



C26E 
C270 
C273 
C275 
C278 
C27A 
C27D 
C27F 
C282 
C284 
C287 
C289 
C28C 
C280 
C290 
C292 
C294 
C297 
C299 
C29B 



3E01 

CD26F2 

3B1A 

CD06P2 

3E09 

CD2DF2 

3B09 

C031P2 

3EFF 

CD18P2 

3E0F 

CD1FP2 

AP 

CD35F2 

3B0B 

0600 

CD3AF2 

3B05 

0601 

C03AP2 



STRH: 



LXI 


H,DSPCYC 


HVI 


B,47 


MOV 


M,A 


INX 


H 


OJNZ 


CBL3 


DB 


10H,CBL3- 


STA 


OKIFLG 


MVI 


A40IHIT; 2 


STA 


IOBYTB 


LXI 


SP,STACK; 



J-l 



SET UP SYSTEM PARAMETERS FROM CMOS RAM 
B » FROM PREVIOUS OP 
CALL RD5101 ; MUST FIND XE,X5 IN 1ST TWO CMOS LOCATIONS 
CPI OEH 

JRNZ STRM ; 1ST BYTE NOT XE, GO SET CMOS RAM AND BIOS VARS. 
DB 20H,STRM-S-1 
HVI B,l 
CALL RD5101 

CPI 5 ; IF 2ND BYTE * X5 

JRZ STCM ; THEN READ CMOS RAM & SET BIOS VARIABLES 
DB 28H,STCM-S- 1 „ . • 



MVI 

CALL 

MVI 

CALL 

MVI 

CALL 

MVI 

CALL 

MVI 

CALL 

MVI 

CALL 

XRA 

CALL 

MVI 

MVI 

CALL 

MVI 

MVI 

CALL 



A,l 

WRTTON 

AfXAH 

WRTBRT 

A,9 

WRTPNT 

A,9 

WRTCOM 

A,0FFH 

WRTBEL 

A,0FH 

WRTVOL 

A 

WRTSLK 

A,0EH 

B,0 

WR5101 

A,5 

B,l 

WR5101 



ELSE SET CMOS RAM & BIOS VARIABLES 
SET KEYTONE 

SET BRIGHTNESS 

SET PRINTER BAUD 

SET COMM. BAUD 

SET BELL TOGGLE 

SET VOLUME LEVEL 

SET SHIFT LOCK 
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C29E 3E0F 
C2A0 47 
C2A1 CD3AF2 

C2A4+182B 



C2A6 
C2A8 
C2AB 
C2AE 
C2B1 
C2B4 
C2B6 
C2B9 
C2BC 
C2BE 
C2C1 
C2C4 
C2C6 
C2C9 



0609 

CD63F2 

324EFA 

C058EF 

324FFA 

0605 

CD63F2 

3250FA 

0606 

CD63F2 

3251FA 

060E 

CD63F2 

B7 



C2CA+2802 
C2CC 3EFF 
C2CE 3252FA 

C201 2123F6 
C2D4 3A4EFA 
C2D7 3C 
C2D8 47 
C209 110F00 
C20C 19 

C2DD*10FD 
£2DF 22840A 
C2E2 3A4FFA 
C2E5 CD47EF 
C2E8 CD26EF 
C2EB CD2DEF 
C2EE 3A51FA 
C2F1 CD67EF 
C2F4 3BC7 
C2F6 32BEEB 



C2F9 0604 
C2FB C5 
C2FC 060D 
C2FB CD75F2 
C301 FEOF 
C303 CI 

C304+201B 

C306+10F3 
C308 21050C 



STCM: 



slok: 
IMPR: 



imli: 



CCL4I 



MVI 

MOV 

CALL 

JR 

DB 

MVI 

CALL 

STA 

CALL 

STA 

MVI 

CALL 

STA 

MVI 

CALL 

STA 

MVI 

CALL 

ORA 

JRZ 

DB 

MVI 

STA 

LXI 
LDA 
INR 
MOV 
LXI 
DAD 
DJNZ 
DB 

SHLD 
LDA 
CALL 
CALL 
CALL 
LDA 
CALL 
MVI 
STA 



A,0FH 

B,A 

WR5101 

IMPR 

18H,IMPR-$-l 



GET KEYTONE 



B,9 

RD5101 
TQNTYP 
GTBRIT 
BRTLBV 
B,5 

RD5101 
CURBEL 
B,6 

RD5101 
VOLEVL 
B,0EH 
RD5101 
A 

SLOK • 
28H,SLOK-$-l 
A,0FFH 
SHLOCK : SET BIOS VAR. 



; SET BIOS VAR. 
; GET BRIGHTNESS 
; SET BIOS VAR. 

; GET BELL TOGGLE 
; SET BIOS VAR. 

; GET VOLUME LEVEL 
; SET BIOS VAR., 

; GET SHIFT LOCK 

• 0*OFF, 0FFH«ON 



H,NOTONE-15 

TOHTYP 

A 

B,A 

D,15 
D 

IMLI 

10H,IMLl-$-l 

CLIKAD 

BRTLEV 

BRTADJ 

ADJPNT 

ADJCOM 

VOLEVL 

VOLADJ 
A,0C7H 

GRFBIT+1 



; SET CURRENT KEYTONE POINTER 



j STORE KEYTONE POINTER 
; SET PHYSICAL DEVICES: 
; BRIGHTNESS LATCH 
; PRINTER BAUD 
• COMM. BAUD 

; VOLUME BYTES IN SOUND TABLE 

; SET GRAPHICS ROUTINE TO PLOT BRIGHT 



CHECK FOR CLOCK CHIP TYPE 



MVI 


B,4 


PUSH 


B 


MVI 


B,0DH 


CALL 


R58174 


CPI 


OFH 


POP 


B 


JRNZ 


NSCK ; <> OFH * NATIONAL SEMI CLOCK 


DB 


20H,NSCK-$-l 


DJNZ 


CCL4 


DB 


10H,CCL4-S-1 


LXI 


H,0C05H ; ELSE MODIFY ROUTINES FOR OKI CLOCK 
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C30B 


2282B7 


C30E 


21PF05 


C311 


223BE7 


C314 


3EAC 


C316 


325AP2 


C319 


3BA8 


C31B 


3284P2 


C31B 


324DFA 


C321 


0603 M 


C323 


CD63F2 


C326 


FEOB 


C328- 


►200C 


C32A 


0604 


C32C CD63P2 


C32F 


FBOS 


C331+2003 


C333 


32ADDA 


C336 


3EDA S 


C338+BD47 


C33A*BD5B 


C33C 


FB 


C33D 


2106PE 


C340 


CD4DE1 


C343 


COA40B 


C346 


2162F8 


C349 


CDC7DB 


C34C 


PB 


C34D 


AF 


C34B 


320400 


C351 


3284PA 


C354 


CD4BDB 


C357 


C300C4 



SHLO 


DATCHG 


LXI 


H,5FFH 


SHLO 


TIMCHG 


HVI 


A,0ACH 


STA 


W58174*14 


MVI 


A,0A8H 


STA 


R58174+15 


STA 


OKIFLG 



CHECK FOR CLOCK SBT 

HSCK: MVI B,3 ; MUST FIND XE,X5 IN TWO CMOS BYTES (3 & 4) 

CALL RD3101 ; TO INDICATE CLOCK HAS BEEN SET 

CPI OEH 

JRNZ SETINT ; NO MATCH, SKIP TO SET INTERRUPT 

DB 20H,SETINT-S-1 

MVI B,4 

CALL RO5101 

CPI 5 

JRNZ SETINT ; NO MATCH, SKIP TO SET INTERRUPT 

DB 20H,SBTINT-S-1 

STA CLKFLG ; ELSE SET CLKFLG <> (CLOCK SET) 

SET UP THE INTERRUPT STRUCTURE 

SETINT: MVI A,V60HZ/256 ;SBT VECTOR AREA 
STAI 

DB 0BDH,47H 

IM2 ;MODE 2 

DB 0EDH,5EH 

EI INTERRUPTS ON 

SIGN ON 

LXI H,SIGN0N+BOFF 

CALL MESSG 

SET UP DISK PARAMETERS 



CALL 


CLRFLG 


LXI 


H,SPCTBL ;SETUP SPECIFY TABLE 


CALL 


DISKOP 


EI 




XRA 


A 


STA 


CDISK ;SELECT DRIVE 


STA 


HSTHD 


CALL 


GOCPM 


JMP 


CCP 



PAGE 
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C35A F4 

C35B 04 

C35C 03 

C35D B8 

C35E 57 

C35F 02 

C360 F6 
C361 03 
C362 03 
C363 D5 
C364 01 

C365 F7 
C366 03 
C367 03 
C366 D5 
C369 01 



C36A P9 
C36B 02 
C36C CF 
C36D 00 

C36E F8 
C36F 01 
C370 65 

C371 FA 
C372 03 
C373 FB 
C374 DB 
C375 FB 
C376 FF 



I/O SETUP TABLE 



■I 



FORMAT: PORT*, # OF BYTES, BYTES 

PORT ENTRY OF OFFH TERMINATES 

TIMERS 



IOTB1 


L: DB 


BAUDC 


; COMM PORT 




DB 


4 






DB 


3 


j RESET 




DB 


(V60HZ- 


4) MOD 256 ; INT. VECTOR 




DB 


TIMCWO 


; CONTROL WORD 




DB 


TIMTCO 


; COMM. BAUD (9600) 


, 


DB 


DSPINT 


; 60 HZ. INTERRUPT 




DB 


3 






DB 


3 


j RESET 




DB 


0D5H 


; ♦ EDGE, INT. ON 




DB 


1 


• COUNT OF 1 


, 


DB 


FPYINT 


; FLOPPY INTERRUPT 




DB 


3 






DB 


3 


; RESET 




DB 


0D5H 


; ♦ EDGE, INT. ON 




DB 


1 





DISABLE EPROM, TURN ON MOTOR 



DB 


SPIOA 


; SET DIRECT] 


DB 


2 




DB 


OCFH 




DB 







DB 


DPIOA 


; DATA FOR L 


DB 


1 




DB 


65H 




DB 


DPIOB 


; STROBE DAT 


DB 


3 




DB 


OFBH 




DB 


ODBH 




DB 


OFBH 




DB 


OFFH 


; TERMINATOR 
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BOOT LOADER 



C377+DD21 
C379+87FF 
C37B 060A 
C37D C5 
C37B 21F8FF 
C381 CD0600 
C384 CI 

C385*1805 
C387 CI 

C388+10F3 

C38A+1857 
C38C 0E1B 

C38E+DD21 
C390+9DFF 
C392 060A 
C394 C5 
C395 21B6FF 
C398 CO0600 

C39B+1805 
C39D CI 

C39B+10F4 

C3A0+1641 
C3A2 CI 
C3A3 00 

C3A4+2836 

C3A6 3AB8FF 

C3A9 C602 

C3AB 32B8FF 

C3AE 21BFFF 

C3B1 34 

C3B2 060A 

C3B4 79 

C3B5 FBI 2 

C3B7+2804 
C3B9 FEOS 

C3BB+20D7 
C3BD 3AEDFF 
C3C0 3C 
C3C1 32BDFF 



BOOT: LXIX BOT1+BOFF 

DB 0DDH,21H 

DW BOT1+BOFF 

MVI B,10 

BOTOS PUSH B 

LXI H3RCTBL+BOFF 

CALL HDISKOP . 

POP B 

JR BOT2 

DB 18H,BOT2-S-l 

BOTl: POP B 

DJNZ BOTO 

DB 10H,BOT0-S-l 

JR GOHON 

DB 18H,GOMON-$-l 

BOT2: MVI C,27 

BOT3: LXIX BOT5*BOFF 

DB 0DDH,21H 

DW BOT5*BOFF 

MVI B,10 

BOT4: PUSH B 

LXI H,BRDTBL*BQFF 

CALL MDISKOP 

JR BOT6 

DB 18H,BOT6-S-l 

BOT5S POP B 

DJNZ BOT4 

DB 10H,BOT4-S-1 

JR GOMOM 

DB 18H,GOMON-S-l 

BOT6: POP B 

DCR C 

JRZ BTOV 

DB 28H,BTOV-S-l 

LDA BRDTBL+BOFF+2 

ADI 2 

STA BRDTBL+BOFF+2 

LXI H,BRREC+BOFF 

INR M 

MVI B,10 

MOV A,C 

CPI 18 

JRZ B0T7 

DB 28H,BOT7-S-l 

CPI 8 

JRNZ BOT4 

DB 20H,BOT4-S»1 

B0T7J LDA BRCYL+BOFF 

INR A 

STA BRCYL+BOFF 



; ERROR RETURN ADDR. 



; 10 RETRIES 

; HL<- START OF RECAL TABLE 
; RECAL DRIVE 



; ARRIVE HERE IF RECAL ERROR 



; IF 10 BAD TRIES, BACK TO HON. 

; READ 27 SECTORS 
; ERROR RETURN ADDR. 



; 10 RETRIES 

; HL <- START OF READ TABLE 

; ARRIVE HERE IF READ ERROR 

; IF 10 BAD TRIES, BACK TO MON. 



; DCR SECTOR COUNTER 

; IF SECTOR * 0, THEN BOOT DONE 

; ELSE INC LOAD POINTER BY 200H 



; INC PHYSICAL SECTOR 

; RESET RETRY COUNTER 

; AT 1ST TRACK BOUNDARY 7 
; IF YES, GO ..B0T7 

ELSE AT 2ND TRACK BOUNDARY ? 
; IF NO THEN GO ..BOT4 

; INCREMENT TRACK 
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C3C4 32F7FF 
C3C7 3E01 
C3C9 32EFFF 

C3CC+DD21 
C3CE+E0FF 
C3D0 060A 
C3D2 C5 
C3D3 21F4FF 
C3D6 CD0600 
C3D9 CI 

C3DA+18B2 

C3DC F3 
C3DD C300DA 

C3E0 CI 

C3E1+10EF 
C3E3 C30300 



STA BSKADD+BOFF 

MVI A,l 

STA BRREC+BOFF 

LXIX BOT9+BOFF 

DB 0DDH,21H 

DW BOT9+BOFF 

MVI B,10 

BOT8: PUSH B 

LXI H,BSKTBL+BOFF 

CALL MDISKOP 

POP B 

JR BOT3 

DB 18H,BOT3-$-l 

BTOV: DI 

JMP BIOS 

BOT9: POP B 

DJNZ B0T8 

DB 10H,BOT8-S-1 

GOMON: JMP MNTR 



DISK TABLES 



READ A SECTOR 



; RESET PHYSICAL SECTOR 
; ERROR RETURN ADDR. 

; 10 RETRIES 

; HL <- START OF SEEK TABLE 
; SEEK TO NEXT TRACK 

; GO GET NEXT SECTOR 



; SYSTEM HAS BEEN BOOTED 
; GOTO TO BIOS INIT ROUTINE 

j ARRIVE HERE IF SEEK ERROR 



; IF 10 BAD TRIES, THEN BACK TO HON. 



C3E6 


39 


BRDTBL: 


DB 


39H 




C3E7 


00C4 




DW 


CCP 




C3E9 


FF01 




DW 


512-1 




C3EB 


46 




DB 


40H+6 




C3EC 


00 




DB 





;UNIT 


C3ED 


00 


brcyl: 


DB 





;c 


C3EE 


00 




DB 





?h 


C3EF 


02 


BRREC: 


DB 


2 


;R 


C3F0 


02 




DB 


2 


?N 


C3F1 


OA 




DB 


10 


jEOT 


C3F2 


OF 




DB 


15 


;GP2 


C3F3 


FF 




DB 


OFFH 


;DTL 








SEEK 


TO NEW CYLINDER 


C3F4 


23 


bsktbl: 


DB 


23H 




C3F5 


OF 




DB 


OFH 




C3F6 


00 




DB 





•HEAD & UNIT 


C3F7 


00 


BSKADD: 


DB 





;NEW CYLINDER 








RECALIBRATE TO 


CYLINDER 


C3F8 


22 


brctbl: 


DB 


22H 




C3F9 


07 




DB 


7 




C3FA 


00 




DB 
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BIOS 



DAOO 


ORG 


BIOS 


- 




• JUMP 


VECTORS 




DAOO C304FB 


JMP 


CBOOT*BOFF ;COLD START 


DA03 C3CADA 


VBOdTB: JMP 


WBOOT 


;WARM START 


DA06 C3C1B0 


JMP 


CONST 


•CONSOLE STATUS 


DA09 C36EB0 


JMP 


CONIN 


;CONSOLE CHAR. IN 


DAOC C37BE0 


JMP 


CONOUT 


•CONSOLE CHAR. OUT 


DAOP C3B1B0 


JMP 


LIST 


•LIST CHAR. OUT 


DA12 C39DB0 


JMP 


PUNCH 


;PUNCH CHAR. OUT 


DAI 5 C38CBQ 


JMP 


RBADBR 


•READER CHAR. IN 


DAIS C38ADB 


JMP 


HOME 


;MOVE HEAD TO HOME POS 


DA1B C38BDB 


JMP 


SBLDSK 


•SELECT DISK 


DA1B C3A1DB 


JMP 


SETTRK 


;SET TRACK # 


DA21 C3A6DB 


JMP 


SETSEC 


•SET SECTOR # 


DA24 C3ABDB 


JMP 


SETDMA 


;SET DMA ADDRESS 


0A27 C3B4DB 


JMP 


READ 


;RBAD FROM DISK 


DA2A C3CCDB 


JMP 


WRITE 


;WRITE TO DISK 


DA2D C3BCB0 


JMP 


LISTST 


•RETURN LIST STATUS 


DA30 C3B0DB 


JMP 


SECTRA 


;SECTOR TRANSLATION 



DISK PARAMETER TABLE 



DA33 ■ 


DPBASE 


C EQU 




3 ; BASE 


OF DISK PARAMETER BLKS. 




* 


DISK 


00 






0000 » 


XLTO 


EQU 







; NO XLATION TABLE 


0000 » 


XLT1 


EQU 




XLTO 




DA33 00000000 




DW 




XLT0,0 


; XLATE TABLE 


DA37 00000000 




DW 




0,0 


; SCRATCH AREA 


DA3B 8BFA53DA 




DW 




DIRBUF,DPB0 


; DIR BUFF, PARM BLOCK 


DA3F 24FB0CFB 




DW 
DISK 


01 


CSV0,ALV0 


; CHECK, ALLOC VECTORS 


DA43 00000000 




DW 




XLT1,0 


; XLATE TABLE 


DA47 00000000 




DW 




0.0 


; SCRATCH AREA 


DA4B 8BFA53DA 




DW 




DIRBUF,DPB1 


; DIR BUFF, PARM BLOCK 


DA4F 5CFB44FB 




DW 




CSV1,ALV1 


; CHECK, ALLOC VECTORS 



DISK PARAMETER BLOCK, COMMON TO ALL DISKS 



DA53 2800 
DA55 04 
DA56 OF 



DPB05 



DW 


CPMSPT 


; SEC PER TRACK 


DB 


3+BLS-l 


; BLOCK SHIFT 


DB 


7*«BLS-1>«8> 


: BLOCK MASK 
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DA57 01 



DA58 B500 
DA5A 7F00 
DA5C CO 
DA50 00 
DA5E 2000 
0A60 0300 
DA53 = 



DA62 
DA64 
DA66 



DA68 
DA6B 
OA6E 
DA71 
0A74 
DA77 
DA7A 
DA70 



C37CDD 
C3B5E1 
C31BE1 
C3FBE0 
C303E1 
C378E1 
C3EEF0 
C35FBB 



DA80 00 
DA81 FF 
DA82 FF 
DA83 00 
DA84 41F6 
DA86 00 
DA87 00 



DA88 
DA8B 
DA8E 
DA91 
DA94 
DA97 
DA9A 
DA90 



DAAO 



C37BEF 
C31AEO 
C326EF 
C320EF 
C3EEDA 
C34BDB 
C371E2 



IF 

EXM: 

ELSE 

EXM: 

ENDIF 



DPB1 



INTl: 
INT2I 
INT3: 



SIDES 
DB 

DB 



OW 
DW 
OB 
DB 
DW 
DW 
BOU 



TPI XOR 1 
TPI 



DSKSIZ-1 

DIRENT-1 

ALOCO 



DIRENT/4 

SYSTRK 

DPBO 



DISKSIZE-1 
DIRECTORY MAX 
ALLOCO 

ALLOC 1 
CHECK SIZE 

OFFSET 

EQUIVALENT PARAMETERS 



RESERVED FOR 3 INTERRUPT VECTORS <I*0DAH> 



DS 
DS 
DS 



JUMP TABLE FOR EXTERNAL USB 



jmptbl: jmp 

JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 



DISK ; VECTOR TO DISK 

VALDSP ; VALET CRTOUT 

TSTTTY ; TEST COMM. PORT 

TTYIN ; INPUT FROM COMM. 

TTYOUT ; OUTPUT TO COMM. 

SOUND ; TABLE DRIVEN SOUND 

PUTVAL ; EXIT VALET OVERLAY 
LINDSP+3; FOR BASIC GRAPHICS 



VARIABLES FOR EXTERNAL USE 



WSFLAG: DB 
VALSTP: DB 
DSKFLG: DB 

valpnd: DB 

CLIKAD: DW 
VALCMD: DB 
VALTIM: DB 





OFFH 
OFFH 


CLICK 





VECTORS 

JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
JMP 
DS 

MORE 

DS 



OUTBLK 

CLNVAL 

ADJPNT 

ADJCOM 

DOBOOT 

GOCPM 

CMPOFF 

3 



READ CMOS & CHANGE PRINT BAUD 
READ CMOS & CHANGE COMM. BAUD 
DO WARM BOOT BUT DON'T GO TO CCP 
INITIALIZE ENVIRONMENT 
RETURN HL W/PROPER LINE OFFSET 
RESERVED FOR ONE MORE JMP VECTOR 



VARIABLES 

2 ; RESERVED FOR MORE VARIABLES 
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DAA2 PPF9 


PARPMT: OW 


CURCHR 


0AA4 00 


LINOFS: DB 





DAA5 00 


DSPFLG: DB 





DAA6 00 


alhwat: DB 





DAA7 00 


ALHCNT: DB 





DAA8 


DS 


1 


DAA9 5802 


ALMPLG: DW 


600 


DAAB 32P6 


VALTON: DW 


HOTONE 


DAAO 00 


CLKPLG: DB 





DAAB PP 


timplg: DB 


OPFH 


OAAP 00 


numplg: DB 





DABO 94P6 


KBYADR: DW 


KBYTBL 


DAB2 43P8 


PLPTBL: DW 


FMTTBL 


DAB4 


DS 


4 



DAB8 
DABA 

DABC C2P2 
DABE 43DP 



DACO 
DAC2 
DAC4 
DAC6 
DAC6 



DACA F3 
DACB 3EPP 
DACD 3 28 IDA 
DADO 310000 
DAD3 FB 
DAD4 CDEEDA 
DAD7 B7 

DAD8+280E 
DADA CD7CDD 
DADD 21BCF8 
DAEO CD4DE1 
DAE3 CD6BE0 

DAE6+18E2 



COUNTS # OP ALARM TONES 



INTERRUPT VECTORS - MUST BE ON A I 
BOUNDARY OP AN EVEN MULTIPLE OF 8 I 



V60HZS 



INT4: 
INT5: 
INT6! 
INT7: 
INT8: 

I 

I 

I 



DS 


2 


DS 


2 


DW 


SRV60 


DW 


SRVFPY 



RESERVED FOR CTC CH. 
RESERVED FOR CTC CH. 1 
60 HZ TIMER (CTC CH. 2) 
FLOPPY INT. (CTC CH. 3) 



MORE USER INTERRUPTS 



DS 
DS 
DS 
DS 
DS 



1 

WARM BOOT - RE-READ UP TO, THE BIOS 



WBOOT: DI 
MVI 
STA 
LXI 
EI 

CALL 
ORA 
JRZ 
DB 

CALL 
LXI 
CALL 
CALL 
JR 
DB 



A,0FFH 

VALSTP ; INHIBIT VALET AT THIS POINT 

SP .STACK; RESET STACK POINTER 

DOBOOT 

A 

WB1 

28H,WB1-S-1 

DISK 

H,WBTRY 

MESSG 

CONIN 

WBOOT 

18H,WB00T-$-l 



DAE8 CD4BDB WBl: CALL GOCPH ; INITIALIZE ENVIRONMENT 

DAEB C303C4 JMP CCP+3 ; & GOTO CCP*3 (CLEARS COMMAND BUFF 1ST) 
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DAEE 3E0B 
DAFO 323FFA 
DAF3 320BFB 

DAF6 3E03 
DAF8 010001 

DAFB 110200 
DAFE 2100C4 



DOBOOT: MVI 
STA 
STA 

«VI 
LXI 

LXI 
LXI 



A,ll 
SECCNT 
RECNT 

A,3 
B,100H 

D,2 
H,CCP 



READ 11 SECTORS 
: RETRY 1 1 TIMES 
: THROUGH, 10 THEREAFTER 
SET COMMAND TO READ 
XFER 1 SECTOR AT A TIME 

SELECT DRIVE 
START AT TRACK 0, SECTROR 2 

LOAD START ADDRESS (BEGINNING OF CCP) 



DB01 F5 
DB02 C5 
DB03 D5 



rwone: push psw 

PUSH B 
PUSH D 



; SAVE LOAD DATA 



IF 



DB04 F5 
DB05 7A 
DB06 FE28 

DB08+3603 
DBOA D6A8 
DBOC 57 
DBOD Fl 



RWJl: 
ENDIF 



SIDES ; CHECK FOR SECOND SIDE 

PUSH • PSW 

MOV A,D 

CPI MAXTRK+1 

JRC RWJl 

DB 38H,RWJ1-S-1 

SUI MAXTRK+81H 

MOV D,A 

POP PSW 



DBOE E5 PUSH H ; 

DBOF CD7CDD CALL DISK ; LOAD SECTOR 

DB12 3A7CFB RWLl: LDA DSKCYC 

DB15 B7 ORA A ; IF DSKCYC * 

JRZ RWOK ; THEN TRACK LOADED OK 

DB16+2810 DB 28H,RWOK-S-l 

DB18 E6E0 ANI OEOH ; ELSE SEE IF DISK OP DONE OR ERROR 

JRZ RWLl ; IF DISK OP NOT DONE, THEN LOOP TO WAIT 

DB1A+28P6 DB 28H,RWL1-S-1 

DB1C 210BFB LXI H, RECNT ; ELSE TRY AGAIN 

DB1F 35 DCR M ; DECREMENT RETRY COUNTER 

DB20 El POP H ; RESTORE DISK COMMAND DATA 

DB21 Dl POP D 

DB22 CI POP B 

JRZ RWNFG ; IF 10 RETRYS, THEN ERROR 

DB23+281F DB 28H,RWNFG-$-l 

DB25 Fl POP PSW 

JR RWONE ; TRY AGAIN 

DB26+18D9 DB 18H,RW0NE-£-l 



DB28 213FFA RWOK: LXI H,SECCNT; DECREMENT SECTOR COUNTER 

DB2B 35 DCR M 

DB2C El POP H ; RESTORE DISK COMMAND DATA 

DB2D Dl POP D 

DB2E CI POP B 

JRZ RWDONE ; IF SECTOR * THEN GOTO CCP 

DB2F+2817 DB 28H,RWDONE-$-l 

DB31 3E0A MVI A,10 ; ELSE SET RETRY COUNTER 

DB33 320BFB STA RECNT 

DB36 24 INR H ; INCREMENT LOAD POINTER BY 
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DB37 24 
DB38 7B 
DB39 PEOA 

DB3B+2003 
0B3D 14 
DB3E 1E00 
OB40 1C 
DB41 PI 

DB42+16BD 



INR 
MOV 
CPI 
JRNZ 
DB 
INR 
MV1 
RWUPSC: INR 
POP 
JR 
DB 



H ; BY 200H (PHYSICAL SECTOR LENGTH) 

A,E 

10 ; IS LAST READ SECTOR <> 10 ? 

RWUPSC ; IF NOT, THEN GOT UPSC 
20H,RWUPSC-S-1 
D 

E,0 
E 
PSW 
RWONE 



ELSE INCREMENT TRACK COUNT 

& SECTOR COUNT = (NEXT INSTR. SETS TO 1) 
INCREMENT SECTOR COUNT 
; RESTORE DISK COMMAND 
■ GET NEXT SECTOR 



18H,RWONE-S-l 



DB44 Fl 
DB45 3B09 
DB47 C9 



RWNFG: POP 
MVI 
RET 



PSW 
A,9 



DB48 Fl 
DB49 AF 
DB4A C9 



DB4B 
DB4C 
DB4F 
DB52 
DB55 
DB58 
DB5A 
DB5D 
DB60 
DB63 
DB66 
DB69 
DB6C 
DB6F 
DB70 
DB71 
DB74 



AF 

3280DA 

3282FA 

3271 FA 

3253FA 

3EFD 

CD27E1 

CD75DB 

018000 

CDABDB 

21E8F8 

CD4DE1 

3A0400 

4F 

AF 

3282DA 

C9 



rwdone: POP 

XRA 
RET 



PSW 
A 



RECTIFY SP, 



COMMON CODE FOR BOOTS 



GOCPM: XRA 
STA 
STA 
STA 
STA 
MVI 
CALL 
CALL 
LXI 
CALL 
LXI 
CALL 
LDA 
MOV 
XRA 
STA 
RET 



A 

WSFLAG 

HSTACT 

UNACNT 

NOKEY 

A,-3 

LLATCH 

SETPGO 

B,80H 

SETDMA 

H,WBINIT; 

MESSG 

CDISK 

C,A 

A 

DSKFLG 



; INITIALIZE ACT. REG. 
; WORDSTR FLAG OFF 
; HOST BUFFER INACTIVE 
; CLEAR UNALLOC COUNT 
; CLEAR VALET INHIBIT 
;TURN OFF GRAPHICS 



;DEFAULT DMA ADDRESS IS 80H 



GET ADDR OF SCREEN INITIALIZATION CHARS. 
; TURN OFF GRAPHICS & CLEAR TO EOS 
; SEND CURRENT DISK # Tp CCP 



CLEAR DSKFLG 



DB75 
DB77 
DB7A 
DB7D 
DB80 
DB83 
DB86 
DB89 



3EC3 

320000 

2103DA 

220100 

320500 

2106CC 

220600 

C9 



SETPGO: MVI 
STA 
LXI 
SHLD 
STA 
LXI 
SHLD 
RET 



A,JMP ;JMP INSTRUCTION 

;STORE JMP TO WBOOT 
H,WBOOTE ;WBOOT ENTRY POINT 

1 ;STORE JMP TO BDOSO 
5 

H,BDOS ;BDOS ENTRY POINT 
6 
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DB8A C9 


HOME: RET 




DB8B 210000 


seldsk: lxi 


H,0 


DB8E 79 


MOV 


A,C 


DB8F 3279FA 


STA 


SEKDSK 


DB92 PE02 


CPI 


NDISK 


DB94 DO 


RNC 




0B95 6F 


MOV 


L,A 


DB96 2600 


MVI 


H,0 


DB96 29 


DAD 


H 


DB99 29 


DAD 


H 


DB9A 29 


DAD 


H 


DB9B 29 


DAD 


H 


DB9C 1133DA 


LXI 


• D,DPBASE 


DB9F 19 


DAD 


D 


DBAO C9 


RET 





DBA1+ED43 
DBA3+7AFA 
DBA5 C9 



DBAB+ED43 
DBAD+89FA 
DBAF C9 



DBBO 2600 
DBB2 69 
DBB3 C9 



jSET ERROR CODE 

^SELECTED DISK NUMBER 

;SEEK DISK NUMBER 
;TRAP THE ERROR 

;RETURN IF DISK NOT ON SYSTEM 

;DISK NUMBER TO HL 

MULTIPLY BY 16 



;BASE OF PARM BLOCK 
;HL-.DPB(CURDSK) 



I SET TRACK GIVEN BY REGISTER BCI 
I 1 

SETTRK: SBCD SEKTRK ;TRACK TO SEEK 

DB 0EDH,43H 

DW SEKTRK 
RET 



, „ , 

ISET SECTOR GIVEN BY REGISTER CI 
, ...... 1 



DBA6 79 S 


ETSEC: MOV 


A,C 


DBA7 327CFA 


STA 


SEKSEC 


DBAA C9 


RET 





;SECTOR TO SEEK 



I SET DMA ADDRESS GIVEN BY BC I 
l„„ „ — 1 

SETDMA: SBCD DMAADR 

DB 0EDH,43H 

DW DMAADR 
RET 



j 1 

I TRANSLATE SECTOR NUMBER BC 
j 1 

sectra: MVI H,0 
MOV L,C 
RET 



READ A SECTOR 
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0BB4 AF RE 


AD: XRA 


A 


;ACCUM=0 


DBB5 3271FA 


STA 


UNACNT 


;UNACNT=0 


DBB8 2F 


CMA 




;DISABLE VALET INT. 


0BB9 3282DA 


STA 


DSKFLG 




DBBC 3E01 


MVI 


A,l 




DBBE 3287FA 


STA 


REAOOP 


;READ OPERATION 


DBC1 3286FA 


STA 


RSFLAG 


;MUST READ DATA 


DBC4 3E02 


MVI 


A,WRUAL 




DBC6 3288FA 


STA 


WRTYPE 


;TREAT AS UNALLOC 


0BC9 C338DC 


JMP 


RWOPER 


;TO PERFORM THE READ 



DBF7 3A71FA 
DBFA B7 

DBFB+2833 



DBFD 3D 
DBFE 3 271 FA 
DC01 3A79FA 
DC04 2172FA 
DC07 BE 

DC08+2026 



WRITE A SECTOR 



DBCC AF 


WRITE: XRA 


A 


;0 TO ACCUMULATOR 


DBCD 3287FA 


STA 


READOP 


;NOT A READ OPERATION 


DBDO 79 


MOV 


A,C 


;WRITE TYPE IN C 


DBOl 3288FA 


STA 


WRTYPE 




DBD4 FE02 


CPI 


WRUAL 


;WRITE UNALLOCATED? 




JRNZ 


CHKUNA 


;CHECK FOR UNALLOC 


DBD6+201A 


DB 


20H,CHKUNA-S- 


1 




WRITE 


TO UNALLOCATED, 


SET PARAMETERS 


DBD8 3E10 


MVI 


A,BLKSI2/128 


;NEXT UNALLOC RECS 


DBDA 3282DA 


STA 


DSKFLG 


; DISABLE VALET INT. 


DBDD 3 271 FA 


STA 


UNACNT 




DBBO 3A79FA 


LDA 


SEKDSK 


;DISK TO SEEK 


0BE3 327 2FA 


STA 


UNADSK 


;UNADSK = SEKDSK 


DBE6 2A7AFA 


LHLD 


SEKTRK 




DBE9 2273FA 


SHLD 


UNATRK 


;UNATRK = SECTRK 


DBEC 3A7CFA 


LDA 


SEKSEC 




DBEF 3275FA 


STA 


UNASEC 


jUNASEC = SEKSEC 


DBF2 3EFF 


CHKUNA: MVI 


A,0FFH 


;DISABLE VALET INT. 


DBF4 328 2DA 


STA 


DSKFLG 





CHECK FOR WRITE TO UNALLOCATED SECTOR 

;ANY UNALLOC REMAIN? 
,-SKIP IF NOT 

MORE UNALLOCATED RECORDS REMAIN 



LDA 


UNACNT 


ORA 


A 


JRZ 


ALLOC 


DB 


28H,ALLOC-$-l 



DCR 


A 




;UNACNT = UNACN7- 


STA 


UNACNT 






LDA 


SEKDSK 




;SAME DISK? 


LXI 


H,UNADSK 






CMP 


M 




;SEKDSK = UNADSK? 


JRNZ 


ALLOC 




;SKIP IF NOT 


DB 


20H,ALLOC- 


-$-1 





DISKS ARE THE SAME 
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DCOA 2173FA 


LXI 


H, UNATRK 






DCOD CDCFDC 


CALL 


SEKCMP ;SEKTRK 


= UNATRK? 




JRNZ 


ALLOC ;5KIP 


IF 


NOT 


DC 10+20 IB 


DB 
TRACKS 


20H,ALLOC-$-l 
ARE THE SAME 






DC 12 3A7CFA 


LDA 


SEKSEC 




;SAME SECTOR? 


DC15 2175FA 


LXI 


H,UNASEC 






DC18 BE 


CHP 


M 




;SEKSEC - UNASEC? 




JRNZ 


ALLOC 




;SKIP IF NOT 


DC19+2015 


DB 


20H,ALLOC-S-1 







MATCH, MOVE TO NEXT SECTOR FOR FUTURE REF 



DCIB 34 
DC1C 7E 
DC1D FE28 

DC1F+3809 



DC21 3600 
DC23 2A73FA 
DC26 23 
DC27 2273FA 



DC2A AF 
DC2B 3286FA 

DC2E+1808 



DC30 AF 
DC31 327 1FA 
DC34 3C 
DC35 3286FA 



INR 


M 


;UNASEC * UNASEC* 1 


MOV 


A,M 


;END OF TRACK? 


CPI 


CPMSPT 


;COUNT CP/M SECTORS 


JRC 


NOOVF 


;SKIP IF NO OVERFLOW 


DB 


38H,NOOVF-S-l 





OVERFLOW TO NEXT TRACK 

;UNASEC * 

•UNATRK = UNATRK* 1 
MATCH FOUND, MARK AS UNNECESSARY READ 



MVI 


M,0 


LHLD 


UNATRK 


INX 


H 


SHLD 


UNATRK 



NOOVF: XRA 
STA 
JR 
DB 



A 

RSFLAG 

RWOPER 

18H,RWOPER-$-l 



;0 TO ACCUMULATOR 

;RSFLAG « 

;TO PERFORM THE WRITE 



NOT AN UNALLOCATED RECORD, REQUIRES PRE-READ 



ALLOC: XRA 
STA 
INR 
STA 



A 

UNACNT 
A 
RSFLAG 



;0 TO ACCUM 
;UNACNT * 
;1 TO ACCUM 
;RSFLAG * 1 



COMMON CODE FOR READ AND WRITE FOLLOWS 



DC38 AF 


RWOPER: XRA 


A 




DC39 3285FA 


STA 


ERFLAG 




DC3C 3282DA 


STA 


DSKFLG 




DC3F 3A7CFA 


LDA 


SEKSEC 




DC42 B7 


ORA 


A 


;>--! 


DC43 IF 


RAR 




;>-! 


DC44 B7 


ORA 


A 


;>~l 


DC45 IF 


RAR 




;>-! 


DC46 3281FA 


STA 


SEKHST 





;ZERO TO ACCUM 
;NO ERRORS (YET) 
;ENABLE VALET INT. 
;COMPUTE HOST SECTOR 



•>— I— # OF (ORA A/RAR) DEPENDANT 
ON VALUE OF HSTBLK 
;HOST SECTOR TO SEEK 
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DC49 2162PA 
DC4C 7S 
DC4D 3601 
0C4F B7 

DC50+2821 



0C52 3A79PA 
DC55 2170FA 
DC56 BE 

DC59+2011 



DC5B 217EFA 
DC5E CDCPDC 

DC61+2009 



DC63 3 Ad 1 PA 
DC66 2180FA 
DC69 BE 

DC6A+2824 



ACTIVE HOST SECTOR? 



;HOST ACTIVE FLAG 

;ALWAYS BECOHES 1 
;WAS IT ALREADY? 
;FILL HOST IF NOT 



HOST BUFFER ACTIVE, SAME AS SEEK BUFFER? 



LXI 


H,HSTACT 


MOV 


A,M 


MVI 


M,l 


ORA 


A 


JRZ 


FILHST 


DB 


28H,FILHST-$-l 



;SAME DISK? 
;SEKDSK * HSTDSK? 



LDA SEKDSK 

LXI H,HSTDSK 

CMP M 

JRNZ NOMATCH 

DB 20H,NOMATCH-S-1 

SAME DISK, SAME TRACK? 



LXI H,HSTTRK 

CALL SEKCMP ;SEKTRK - HSTTRK? 

JRNZ NOMATCH 

DB 20H,NOMATCH-S-1 

SAME DISK, SAME TRACK, SAME BUFFER? 



LDA SEKHST 

LXI H,HSTSEC 

CMP M 

JRZ MATCH 

DB 28H,HATCH-$-l 



;SEKHST * HSTSEC? 
;SKIP IF MATCH 



PROPER DISK, BUT NOT CORRECT SECTOR 



DC6C 3A83FA 


nomatch:lda 


HSTWRT 


jHOST WRITTEN? 


DC6F B7 




ORA 


A 




DC70 C4DBDC 




CNZ 


WRITEH 


;CLEAR HOST BUFF 






MAY HAVE TO FILL THE HOST BUFFER 


DC73 3A79FA 


FILHST: 


LDA 


SEKDSK 




DC76 327DFA 




STA 


HSTDSK 




DC79 2A7AFA 




LHLD 


SEKTRK 




DC7C 227EFA 




SHLD 


HSTTRK 




DC7F 3A81FA 




LDA 


SEKHST 




DC82 3280FA 




STA 


HSTSEC 




DC85 3A86FA 




LDA 


RSFLAG 


;NEED TO READ? 


DC88 B7 




ORA 


A 




DC89 C4DFDC 




CNZ 


READHS 


;YES, IF 1 


DC8C AF 




XRA 


A 


;0 TO ACCUM 


DC8D 3283FA 




STA 


HSTWRT 


;NO PENDING WRIT 



COPY DATA TO OR FROM BUFFER 
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DC90 3A7CFA MATCH: LDA 


SEKSBC 


;MASK BUFFER NUMBE1 


DC93 E603 


ANI 


SECMSK 




DC95 6F 


MOV 


L,A 


;READY TO SHIFT 


DC96 2600 


MVI 


H,0 


;DOUBLE COUNT 


DC98 29 


DAD 


H 




DC99 29 


OAO 


H 




DC9A 29 


DAD 


H 




OC9B 29 


DAD 


H 




DC9C 29 


DAD 


H 




DC9D 29 


DAD 


H 




DC9E 29 


DAD 


H 




• 


HL HAS 


RELATIVE HOST 


BUFFER ADDRESS 


DC9F 11B1FB 


LXI 


D,HSTBUF 




OCA2 19 


DAD 


D 


;HL * HOST ADDRESS 


DCA3 EB 


XCHG 




;NOW IN DE 


DCA4 2A89FA 


LHLD 


DMAADR 


;GET/PUT CP/M DATA 


• 



MVI 


C / 128 


;LENGTH OF MOVE 


DCA7 3A87FA 


LDA 


READOP 


;WHICH WAY? 


OCAA B7 


ORA 


A 






JRNZ 


RWMOVE 


;SKIP IF READ 


DCAB+2006 


DB 


20H,RWMOVE-S- 


1 



WRITE OPERATION, MARK AND SWITCH DIRECTION 



DCAD 3E01 


MVI 


A,l 




DCAF 3283FA 


STA 


HSTWRT 


;HSTWRT * 1 


DCB2 EB 


XCHG 




;SOURCE/DEST SWAP 



DE IS SOURCE, HL IS DEST, MOVE 128 BYTES 



DCB3 EB ] 


RWMOVE: XCHG 


• 


LDIR 


MOVES (DEX-(HL) 


DCB4 018000 


LXI 


B,128 ; 


MOVE 


128 BYTES 




LDIR 


• 
9 


DO MOVE 


DCB7+EDB0 


DB 


0EDH,0B0H 








; DATA 


HAS BEEN MOVED TO/FROM HOST BUFFER 


DCB9 3A88FA 


LDA 


WRTYPE 




;WRITE TYPE 


DCBC FE01 


CPI 


WRDIR 




;TO DIRECTORY? 


DCBE 3A85FA 


LDA 


ERFLAG 




;IN CASE OF ERRORS 


DCC1 CO 


RNZ 






;NO FURTHER PROCESSING 




CLEAR 


HOST BUFFER 


FOR 


DIRECTORY WRITE 


DCC2 B7 


ORA 


A 




jERRORS? 


DCC3 CO 


RNZ 






;SKIP IF SO 


DCC4 AF 


XRA 


A 




;0 TO ACCUM 


DCC5 328 3FA 


STA 


HSTWRT 




;BUFFER WRITTEN 


DCCS CDDBDC 


CALL 


WRITEH 






DCCB 3A85FA 


LDA 


ERFLAG 






DCCE C9 


RET 









UTILITY SUBROUTINE FOR 16-BIT COMPARE 
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sbkcmp: 





;HL * 


.UNATRK OR .HSTTRK, COMPARE WITH SEK1 


DCCF BB 


XCHG 




DCDO 217APA 


LXI 


H,SEKTRK 


DC03 1A 


LDAX 


D ;LOW BYTE COMPARE 


DCD4 BB 


CMP 


M ;SAMB? 


DC05 CO 


RNZ 


;RETURN IF MOT 


• 
9 


LOW BYTES EQUAL, TEST HIGH IS 


DC06 13 


INX 





DCD7 23 


INX 


H 


DC08 1A 


LDAX 


D 


DCD9 BE 


CMP 


M ;SETS FLAGS 


DCDA C9 


RET 
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DCDB 3B02 

DCDD+1602 
DCDP 3B03 
DCE1 3270PA 
DCE4 3E0A 
OCE6 3282DA 
DCE9 320BPB 
DCEC CD62DD 
DCEP 3A70FA 
DCP2 CD7CDD 
DCP5 3A7CPB 
DCF8 B7 

DCF9+2015 
OCPB 3A70PA 
DCPE PE02 

DD00+2009 



» WRITEHST PERPORMS THE PHYSICAL WRITE TO 

I THE HOST DISK, READHST READS THE PHYSICAL 

I DISK. 

, , 



HSTDSK * HOST DISK #, HSTTRK = HOST TRACK #, 
HSTSBC * HOST SECT #. WRITE 'HSTSIZ' BYTES 
PROH HSTBUF AND RETURN ERROR FLAG IN ERPLAG. 
RETURN ERFLAG NON-ZERO IF ERROR 



WRITEH: MVI 
JR 
DB 

READHS: MVI 

RDHl: 



RDH2: 



HSLl: 



HSL2: 



STA 

MVI 

STA 

STA 

CALL 

LDA 

CALL 

LDA 

ORA 

JRNZ 

DB 

LDA 

CPI 

JRNZ 

DB 



A,2 
RDHl 

18H,RDHl-$-l 
A, 3 

DSKCMD 
A, 10 
DSKFLG 
RECNT 
GSTUFF 
DSKCMD 
DISK 
DSKCYC 
A 
HSL3 



SET FOR 10 RETRYS 
INHIBIT VALET 
STORE RETRY 
GET REGS. FOR DISK 
GET COMMAND FOR DISK 
DO DISK OPERATION 
GET DSKCYC 
IF DSKCYC <> 
THEN ..L3 

20H,HSL3-$-l 

DSKCMD ; ELSE TEST LAST OP 

2 ;IF READ JUST FINISHED 

HSU ; THEN CONTINUE 

20H,HSI1-S-1 



DD02 0B03 MVI C,3 ; ELSE FORMAT OR WRITE JUST 

DD04 06CD HSL5: MVI B,0CDH ; DONE SO DELAY TO GIVE TIME 

HSL6: DJNZ HSL6 ; FOR TUNNEL ERASE FIELD TO 

DD06+10FB DB 10H,HSL6-S-1 

DD08 OD DCR C ; DECAY. 

JRNZ HSL5 

DD09+20P9 DB 20H,HSL5-S-1 



DDOB AF 
DDOC 3282DA 
DDOF C9 
DD10 B6E0 

DD12+28E1 
DD14 3A0BPB 
DD17 3D 

DD18+20CF 
DD1A 3B09 
DD1C CD7CDD 
DD1F 2107F9 
DD22 CD46DD 
DD25 CD50DD 



HSIl: 



HSL3: 



HSRl: 



HSJ2: 



XRA 

STA 

RET 

ANI 

JRZ 

DB 

LDA 

DCR 

JRNZ 

DB 

MVI 

CALL 

LXI 

CALL 

CALL 



OPERATION DONE 
ENABLE VALET 

IF NOT ERRONEOUS COMPLETION 
THEN TEST DSKCYC AGAIN 



DSKFLG 

OBOH 
HSL2 
28H,HSL2-$-l 

RECNT ; ELSE DCR. RETRY RETRY 
A ; COUNTER. IF <> 
HSLl ; THEN RETRY 
20H,HSLl-$-l 

A,9 ; ELSE REPORT ERROR 
DISK 

H,OPTMSG; PUT UP OPTION MESSG. 
DOERR 
ERRKEY ; GET KEY (CLEAR BUFFER 1ST) 
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DD28 FB57 




CPI 


'W' ; IF KEY * W 






JRZ 


HSR2 ; THEN WARM BOOT 


DD2A+28L0 




DB 


28H,HSR2-S-1 


D02C FB49 




CPI 


1' ; ELSE IF KEY = I 






JRZ 


HSU ; THEN IGNORE LAST OP. 


DD2B*28DB 




DB 


28H,HSI1-S-1 


DD30 FBI 2 




CPI 


12H j ELSE IF <> KEY = CTRL/R 


DD32 C2B4DC 




JNZ 


RDH2 ; THEN RETRY DISK OP. 


DD35 3B08 




MVI 


A,8 ; ELSE REPORT FDC RESULT BYTE 


DD37 CD7CDD 




CALL 


DISK 






JR 


HSR1 ; LOOP TO OPTIONS AGAIN 


DD3A+16B3 




OB 


18H,HSR1-S-1 


DD3C 3AFCF9 


HSR2: 


LOA 


SBTFLG 


D03F B7 




ORA 


A ; IF IN VALET 


DD40 C41ABD 




CHZ 


CLNVAL ; THEN RESET VALET VARIABLES 


DD43 C3CADA 




JMP 


WBOOT ; WARM BOOT 


D046 3AFCF9 


dobrr: 


LDA 


SBTFLG 


D049 B7 




ORA 


A ; IF NOT IN VALET 


0D4A CA4DE1 




JZ 


MBSSG ; THEN MESSG 


D04D C3B4BF 




JMP 


VALMSG ; ELSE VALMSG 


DD50 AF 


BRRKBY: 


XRA 


A 


DD51 212BFA 




LXI 


H,K8YBUP 


DD54 F3 




DI 




DD55 32FBF9 




STA 


KEYCNT ; CLEAR KEYBOARD BUFFER 


DD58 223BFA 




SHLD 


KBYPNT 


DD5B FB 




BI 




DD5C CD6BB0 




CALL 


CONIN ; GET KEY 


DD5F B60F 




ANI 


ODFH ; MAKE UPPBR CASE 


0D61 C9 




RET 






•SET OP 


DATA 


FOR WRITEH & READHS 


DD62 21B1FB 


gstuff: 


LXI 


H,HSTBUF 


DD6S 3A7BFA 




LDA 


HSTTRK 


0068 57 




MOV 


D,A 




IF 


SIDES 




0D69 FE28 




CPI 


MAXTRK+1 






JRC 


GSSIDO 


DD6B+3803 




DB 


38H,GSSID0-S-1 


DD6D D6A8 




SUI 


MAXTRK+81H 


DD6F 57 


ENOIF 


MOV 


D,A 


DD70 3A80FA 


gssido: 


LDA 


HSTSEC 


DD73 3C 




INR 


A 


DD74 5F 




MOV 


E,A 


DD75 3A7DFA 




LDA 


HSTDSK 


DD78 0601 




MVI 


B,l 


0D7A 4F 




MOV 


C # A 


DD7B C9 




RET 
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GENERAL FLOPPY HANDLER 
STARTS MOTOR, HOMES IF NEEDED, 
SEEKS IF NEEDED, AND INITIATES 
READ, WRITE, OR FORMAT 

ENTRY PARAMETERS 

A = OPERATION CODE 

« RETURN CURRENT STATUS 

1 * FORMAT TRACK 

2 * SECTOR WRITE 

3 = SECTOR READ 

8 * DISPLAY FDC RESULT BYTE ERROR MSSG. 

9 = DISPLAY ENGLISH DISK ERROR MSSG. 

B ■ # OF SECTORS TO TRANSFER (MUST * 1) 

C = DRIVE # 

D = TRACK TO BEGIN TRANSFER (BIT 7 * SIDE) 

E " SECTOR TO BEGIN TRANSFER 

HL * ADDRESS TO TRANSFER TO/FROM 

DSKCYC CODES 

= SUCCESSFUL COMPLETION 

1 = DFM DATA FORMAT 

2 = DWR DATA WRITE 

3 = DRD DATA READ 

4 = RC1 RECAL 1 

5 = SKI SEEK TO 4 

6 = RC2 RECAL 2 

7 * SK2 SEEK TO TRACK 

8 * WFR WAITING FOR READY 

ERROR IS INDICATED BY SETTING UPPER BIT(S) OF 
THE DSKCYC SEQUENCE CODE. 

BIT 7 = U765 ERRONEOUS COMPLETION 
BITS 7,6 * OPERATION TIME OUT 
BITS 7,6,5 » U765 NOT READY 



REPORT DSKYC I 



DD7C B7 


DISK: 


ORA 
JRNZ 


DD7D+2006 




DB 


DD7F 3A7CFB 




LDA 
BIT 


DD82+CB7F 




DB 


DD84 C9 




RET 



A ;IF ACC. <>0 
DSJ1 ; THEN GO NEXT TEST 
20H,DSJl-$-l 

DSKCYC ; ELSE TEST DSKCYC 
7,A 
0CBH,7»8*A*40H 



;i- 
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•I REPORT ERROR WITH FDC RESULT BYTES I 



DD85 PE08 


., 

DSJl: 


CPI 


8 ;IP ACC. <> 8 






JRNZ 


DSJ2 ; THEN GO ..J2 


DD87+2020 




DB 


20H,DSJ2-S-1 


DD89 CD2EB0 




CALL 


CRLF 


DD8C 2135P9 




LXI 


H,DERMSG 


D08P CD4DB1 




CALL 


MESSG 


OD92 3A6PPA 




LDA 


RESULT 


DD95 47 




MOV 


B,A 


DD96 04 




INR 


B 


DD97 217CPB 




LXI 


H,DSKCYC 


DD9A 0E20 


DSLl: 


MVI 


CSPC 


OD9C CD7EB0 




CALL 


CONOUT 


DD9P C5 




PUSH 


B 


DOAO 46 




MOV 


B,M 


DOA1 CD60E1 




CALL 


DSHEX 


DDA4 23 




INX 


H 


DDA5 CI 




POP 


B 






OJNZ 


DSLl 


DDA6+10P2 




DB 


10H,DSLl-*-l 


D0A8 C9 




RET 





i REPORT ERROR WITH ENGLISH MESSAGE I 



DDA9 PE09 DSJ2: CPI 


9 




JRNZ 


DSJ3 


0DAB+2040 


DB 


20H,DSJ3-S-1 


DDAD 2146P9 


LXI 


H,VCRLF 


DDBO CD46DD 


CALL 


DOERR 


DDB3 3A57F8 


LDA 


RWUNIT 


DDB6 E601 


ANI 


1 


DDB8 C641 


ADI 


41H 


DDBA 3244F9 


STA 


DRVNUM 


DDBD 3A7CFB 


LDA 


DSKCYC 


DDCO 47 


MOV 


B,A 


0DC1 E6E0 


ANI 


OEOH 


DDC3 2148F9 


LXI 


H.TERR ; NODISK 


DDC6 PECO 


CPI 


OCOH 




JRZ 


DSV1 


DDC8+281A 


DB 


28H,DSVl-3-l 


DDCA PEEO 


CPI 


OEOH 




JRNZ 


DSV2 


DDCC+2002 


DB 


20H,DSV2-S-1 


DDCE 0600 


MVI 


B,0 ; SYSTEM 


DDDO 78 DSV2: MOV 


A3 ; ALL OTHERS 


DDD1 E60F 


ANI 


OFH 


DDD3 FE04 


CPI 


4 




JRC 


DSV2A 


DDD5+3802 


DB 


38H,DSV2A-S-1 
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DDD7 E605 




ANI 


5 ; I.E. 7*5,6=4 


DDD9 3C 


DSV2A: 


INR 


A 


ODDA 47 




MOV 


B,A 


DDDB 2149P9 




LXI 


H,CERR-6 


DDDE 110600 




LXI 


D,6 


DDE1 19 


DSV3: 


DAD 


D 






DJNZ 


DSV3 


DDE2+10FD 




DB 


10H,DSV3-S-1 


DDE4 CD46DD 


DSVl: 


CALL 


DOERR 


DDE7 2135F9 




LXI 


H,DERHSG 


DDEA C3460D 




JMP 


DOERR 
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#029 
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, -„ 1 

I DO DISK OPERATION I 



SAVE DISK PARAMETERS 



DDED 3270PA DSJ3: STA 


DSKCMD 


;SET UP DISK OP. TABLE 


IS 


DOFO 7A 


NOV 


A,D 


;— HD & UNIT 




DDP1 E680 


ANI 


8 OH 






DDF3 07 


RLC 








DDP4 3259F8 


STA 


RWHD 






DDF7 07 


RLC 








DDF8 07 


RLC 








DDF9 Bl 


ORA 


C 






DDFA 3249P8 


STA 


FMUNIT 






DDFD 3257F8 


STA 


RWUNIT 






DEOO 3261F8 


STA 


SDUNIT 






DB03 3268P8 


STA 


SKUNIT 






DB06 E603 


ANI 


3 






DE06 3250F8 


STA 


RCUNIT 






DEOB 7A 


MOV 


A,D 


--CYLINDER 




DEOC E67P 


AN! 


7FH 






DEOE 3258F8 


STA 


RWCYL 






DE11 3269F8 


STA 


SKCYL 






DEI 4 7B 


MOV 


A,S 


;~ SECTOR 




DE15 325AF8 


STA 


RWRBC 






DE18 2244F8 


SHLD 


FHADDR 


;~ DATA ADDRESS 




DB1B 2252P8 


SHLD 
RLCR 


RWADDR 
B 






DE1E+CB00 


DB 


OCBH, 00H + B 




DE20 0E00 


MVI 


CO 






DE22 OB 


DCX 


B 


■* ., 






SBCD 


RWCNT 


; DATA COUNT 




DE23+ED43 


DB 


0EDH,43H 






DE25+54F8 


DW 


RWCNT 






DE27 3A70FA 


LDA 


DSKCMD 






DE2A FE01 


CPI 


1 








JRZ 


DSJ5 


; IF COMMAND = FORMAT, 


THEN SKIP 


DE2C+2812 


DB 


28H,DSJ5 


-S-l 




DB2E 4F 


MOV 


C,A 


; ELSE SET UP RWTBL 




DE2F 3E43 


MVI 


A,RWCODE 




, 


DE31 81 


ADD 


C 






DE32 3256F8 


STA 


RWCMD 






DE35 3E39 


MVI 
BIT 


A,39H 
0,C 






DE37+CB41 


DB 
JRNZ 


0CBH,0»8« 
DSJ4 


C+40H 




DE39+2002 


DB 


20H,DSJ4- 


-g-1 




DE3B F640 


ORI 


40H 






DB3D 3251F8 DSJ4: STA 


RWTBL 






DE40 F3 DSJ5S DI 








DE41 2A6DFA 


LHLD 


MTRCNT 


rEXAMINE MOTOR COUNT 
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DE44 7C 




MOV 


A,H 


DE45 B5 




ORA 


L ;IF MOTOR ON 


DE46 212C01 




LXI 


H,MTRTIM 


DE49 226DFA 




SHLD 


MTRCNT 






JRZ 


STRMTR 


DE4C+2846 




DB 


28H,STRMTR-$-l 


DE4E FB 


* 


EI 




DE4F CDB5DE 




CALL 


SNSTAT 






BIT 


5,A 


DE52+CB6F 




DB 


0CBH,5«8+A*40H 






JRNZ 


DSJ5A 


DE54+2009 




DB 


20H,DSJ5A-©-l 


DE56 210000 




LXI 


H,0 


DE59 226DFA 




SHLD 


MTRCNT 


DE5C C30BDF 




JMP 


NOTRDY 


DE5F CD77DE 


DSJ5A: 


. CALL 


CTFLGS ; EXAMINE PRO! 


DB62 7B 




MOV 


A,M 


DE63 B7 




ORA 


A ;IF HMFLG = 






JR2 


DSJ8 


DB64+2807 




DB 


28H,DSJ8-S-1 


DE66 3E07 




MVI 


A,7 ; DSKCYC = 7 


DB68 2166F8 




LXI 


H,SKTBL 






JR 


DSJ10 


DE6B+1805 




DB 


18H,DSJ10-S-1 


DE6D 3B04 


DSJ8: 


MVI 


A, 4 ; DSKCYC = 4 


DE6P 214EF8 




LXI 


H,RCLTBL 


DB72 CDBCDE 


DSJ10: 


CALL 


DORCSK 


DE75 FB 




EI 




DB76 C9 




RET 
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DE77 3A57F8 
DE7A 2176FA 

DE7D+CB47 
DE7F CB 
DE60 23 
DB81 C9 



MISC. DISK ROUTINES 



GTFLGS: LDA 
LXI 
BIT 
DB 
RZ 
IMX 
RET 



RWUNIT 
H,HMFLGS 
0,A 
0CBH,0»8*A*40H 

H 



GET PROPER HMFLG 



DB82 3E3C 
0E84 32A9FB 
DE87 AF 
0B88 E5 
DB89 0608 
DE8B 217DFB 
0E8E 77 
0B8F 23 

DB90+10FC 
DE92 El 
DE93 C9 



0B94 3E28 
DB96 CD84DB 
DB99 3B08 
DB9B 327CFB 
DE9E D607 
DEAO CD27B1 
DEA3 FB 



0EA4 210000 
DEA7 2276FA 
DEAA C9 



SETDT: MVI 
STA 
XRA 
PUSH 
MVI 
LXI 

SDTLl: MOV 
INX 
OJMZ 
DB 
POP 
RET 



A,60 ;SET OPERATION TIMEOUT 



DSKCNT 

A 

H 

B,8 

H,ST0 

M,A 

H 

SDTLl 

10H,SDTL1-S-1 

H 



(DECREMENTED BY SRV60) 



; AND CLEAR RESULT BYTES 



START DRIVE MOTORS 



STRMTR: MVI 
CALL 
MVI 

STA 
SUI 
CALL 
EI 



A,40 

SBTDT+2 

A ,8 

DSKCYC 

7 

LLATCH 



1/2 SECOND FOR DRIVE UP TO SPEED 
DSKCYC * 8 



CLEAR HOME FLAGS 



CLRFLG: LXI 

SHLD 
RET 



H.O 
HMFLGS 



CLEAR ANY RESULT BYTES FROM FDC 
AND ISSUE ILLEGAL COMMAND TO RESET 



DEAB 0608 


CLRFDC: 


MVI 


B,8 ; CLEAR FDC 


DEAD 48 


CFLl: 


MOV 


C,B 


DEAB CD2EDF 




CALL 


R765 


DEB1 41 




MOV 


B,C 






DJNZ 


CFL1 


DEB2+10F9 




DB 


10H,CFLl-$-l 


DEB4 C9 




RET 
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BASIC FLOPPY DRIVER i 

SETS UP BOTH FLOPPY CONTROLLER AND DMA FOR I 
A FLOPPY OPERATION AND DELIVERS COMMAND. I 
SEE FLOPPY COMMAND TABLES FOR TABLE FORMAT. I 
RETURNS WITH Z FLAG SET IF A TIMEOUT OCCURS. I 
'A' CONTAINS ST3 ON EXIT FOR 'SENSE DRIVE I 
STATUS' COMMANDS I 



■I 



- — LEAVES INTERRUPT DISABLED — - 



DEB5 215FF8 


snstat: 


LXI 


H,SDSTBL ; SENSE DF 


DEB8 3E01 




MVI 


A,l 


» 


- 


JR 


DORCSl 


DEBA+1805 




DB 


18H,D0RCS1-S-1 


DEBC 327CFB 


DORCSK: 


STA 


DSKCYC ; SEEK OR 


DEBF 3E02 




MVI 


A,2 


DEC1 326FFA 


DORCSl: 


STA 


RESULT 


DEC4 CD82DE 




CALL 


SETDT 




n 

9 


DROP 


THROUGH TO DISKOP 


DEC7 54 


DISKOP: 


MOV 


D,H 


DEC8 5D 




MOV 


E,L 






BIT 


4,M 


DEC9+CB66 




DB 


0CBH,4*8+M+40H 






JRZ 


DOJ3 ;Z*SKIP DMA SETUP 


DECB+281F 




DB 


28H,DOJ3-S-l 


DECD 3B44 




MVI 


A,44H ;— SET UP DMA MODE 






BIT 


6,M 


DBCF+CB76 




DB 


0CBH,6«8+M+40H 






JRZ 


DOJ2 


DED1+2602 




DB 


28H,DOJ2-S-l 


DED3 3E48 




MVI 


A,48H 


DED5 D3EB 


DOJ2: 


OUT 


DMAWMR 


DED7 E5 




PUSH 


H 


DED8 23 




INX 


H 


DED9 OEEO 




MVI 

OUTI 


CFPYBCA 


DEDB+EDA3 




DB 
OUTI 


0EDH,0A3H 


DEDD+EDA3 




DB 


0EDH,0A3H 


DEDF 0BE1 




MVI 
OUTI 


CFPYBWR 


DEE1+EDA3 




DB 
OUTI 


0EDH.0A3H 


DEE3+EDA3 




DB 


0EDH / 0A3H 


DEE5 3E00 




MVI 


A,0 


DEE7 D3EA 




OUT 


DMAWSM ;— MASK OFF 


DEE9 2B 




DCX 


H 


DEEA EB 




XCHG 




DEEB El 




POP 


H 


DEEC B5 


DOJ3: 


PUSH 


H ;SEND 765 COMMANDS 
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DEED 7E 




MOV 


A,M 




DBEE E60F 




ANI 


OFH 


;ISOLATE # BYTES TO SBND 


DBPO 47 




HOV 


B,A 


;B*#OF BYTES 


OEP1 62 




HOV 


H,D 




DBP2 6B 




MOV 


L,E 




DBF3 P3 




01 






DBP4 23 


D0L2: 


INX 


H 


;D0 UNTIL B=0 OR ERROR 


0BF5 4E 




MOV 


CM 




DBP6 C5 




PUSH 


B 




0BP7 CD18DF 




CALL 


W765 


; SEND ONE BYTE TO FDC 


DBFA CI 




POP 


B 








JRZ 


D0J5 


; GO ..J5 IF ERROR 


DBFB+280D 




DB 


28H,D0J5-S-1 






OJNZ 


D0L2 


;END DO 


DBFD+10F5 




DB 


10H,DOL< 


5-S-l 


DBPF El 




POP 


H 








BIT 


7,M 


;IF READ ST3 


DF00+CB7E 




DB 


0CBH,7«8 


♦M*40H 


0F02 C6 




RZ 




; THEN GO ..J4 


DF03 0601 


t 


MVI 


B,l 


; READ ST3 


DF05 COOOBO 




CALL 


RBDRES 




DF08 CO 




RNZ 




; HAVE READ ALL BYTES 


DF09 B5 




PUSH 


H 


; ELSE ERROR 


DFOA Bl 


DO J 5: 


POP 


H 


;KEBP SP CURRENT 


OFOB CDABDB 


notrdy: 


CALL 


CLRFDC 




DFOE 3A7CFB 




LDA 


DSKCYC 




0F11 F6B0 




ORI 


OBOH 




DPI 3 327CFB 




STA 


DSKCYC 




DF16 AP 




XRA 


A 




DF17 C9 




RET 




;RBTURN (ERROR) 



THIS ROUTINE WILL WAIT FOR NEXT BYTE READY THEN SEND THE 
COMMAND PASSED IN THE C REG TO THE FLOPPY CONTROLLER 



DF18 061F 


W765: 


MVI 


B,1FH 






W7L1: 


DJNZ 


W7L1 


;DELAY 36 US.<4 MHZ) 


DF1A+10FE 




DB 


10H,W7L1 


-$-1 


DF1C 060A 




MVI 


B,10 




DF1E DBFC 


W7L2: 


IN 


SFLPY 


;READ STATUS 


DF20 E6C0 




ANI 


OCOH 


• 


DF22 FE80 




CPI 


80H 


;WE WANT B7 ON & B6 






JRZ 


W7J1 


;G0 SEND BYTE 


DF24+2803 




DB 


28H,W7J1 


-0-1 






DJNZ 


W7L2 


;DEC CNT LOOP 


DF26+10F6 




DB 


10H,W7L2 


-S-l 


DF28 C9 




RET 






DF29 B7 


W7J1: 


ORA 


A 


;CLEAR THE Z 


DF2A 79 




MOV 


A,C 




DF2B D3FD 




OUT 


DFLPY 


;SEND COMMAND 


DF2D C9 




RET 







;THIS ROUTINE WILL WAIT NEXT BYTE READY THEN INPUT THE 
;NEXT STATUS BYTE FROM THE FDC 
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DF2E 06 IF 


R765: 


MVI 


B,1FH 






R7L1: 


DJNZ 


R7L1 


•DELAY 36 US. (4 MHZ) 


DF30+10FE 




OB 


10H,R7LJ 


-$-1 


DF32 060A 




MVI 


B,10 


;SETUP COUNT 


DF34 DBFC 


R7L2: 


IN 


SFLPY 


•READ STATUS 


DF36 E6C0 




ANI 


OCOH 


• 


DF38 FECO 




CPI 
JRZ 


OCOH 
R7J1 


•WE WANT B7 & B6 ON 


DF3A+2803 




OB 


28H,R7J1 


-0-1 






DJNZ 


R7L2 


;DEC CNT 6 LOOP 


DF3C+10F6 




OB 


10H,R7L2 


-S-l 


DF3E C9 




RET 






DF3F B7 


R7J1: 


ORA 


A 


;RBSET Z 


DF40 DBFD 




IN 


DFLPY 


;READ A BYT 


DF42 C9 




RET 
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FLOPPY INTERRUPT ROUTINE 



-II 



■II 





srvfpy: 


SSPD 


TEMSTK 


DF43+ED73 




DB 


0EDH,73H 


DF45+49FA 




DW 


TEHSTK 


DF47 31C2FF 




LXI 


SP,INTSTK 


DF4A E5 




PUSH 


H 


DF4B 05 




PUSH 


D 


DF4C C5 




PUSH 


B 


DF40 F5 




PUSH 


PSW 


DF4B OBFC 




IN 


SFLPY 


DF50 B610 




ANI 


10H ; IF FDC NOT BUSY 






JRZ 


FPJ2 ; THEN SENSE INT. STATUS 


DF52+2811 




OB 


28H,FPJ2-$-l 



I RESULT PHASE FOR READ, WRITE OR FORMAT I 



DF54 0607 


MVI 


DF56 CD00B0 


CALL 




JRZ 


DF59+2822 


OB 


DF5B 3A7DFB 


LDA 


DF5E E6F8 


ANI 


DF60 217CFB 


LXI 




^JRNZ 


DF63+202C 


OB 



B,7 ; ELSE READ 7 RESULT BYTES 

REORES 

FPJ3 ; DIDN'T READ ALL BYTES 

28H,FPJ3-$-l 

STO ; CHECK STO 

0F8H ; IF STO NOT OK 

H,DSKCYC 

FPJ5 ; THEN ERROR 

20H,FPJ5-S-1 



, , 

I RESULT PHASE FOR SEEK, RBCAL OR READY CHANGE 
, , 



DF65 0B08 


FPJ2J 


MVI 


C,& 




DF67 CD18DF 




CALL 


W765 


; ISSUE SENSE INT. STATUS 






JRZ 


FPJ3 


; IF ERROR, THEN GO DERTIM 


DF6A+2811 




DB 


28H,FPJ3-$-l 


DF6C CD2EDF 




CALL 


R765 








JRZ 


FPJ3 


; READ 1ST RESULT BYTE 


DF6F+280C 




DB 


28H,FPJc 


>-$-! 


DF71 4F 




MOV 


C,A 


;. SAVE STO 


DP72 FE80 




CPI 


80H 


; IF INVALID COMMAND WAS ISSUED 






JRZ 


FPOK 


; THEN WE ARE DONE 


DF74+281F 




DB 


28H,FPOK-$-l 


DF76 217DFB 




LXI 


H,STO 




DF79 71 




MOV 


M,C 


; ELSE STORE STO 


DF7A CD2EDF 




CALL 


R765 


; READ NEXT BYTE 


DF7D CA29E0 


FPJ3: 


JZ 


DERTIM 


j FDC NOT READY 


DF80 23 




INX 


H 




DF81 77 




MOV 


M,A 


; STORE ST1 
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DF82 79 




MOV 


OFS3 E6F8 




ANI 


DF85 FE20 




CPI 
JRZ 


DF87+28DC 




DB 


DF89 217CFB 




LXI 


DF8C 7E 




MOV 


DF8D FE08 




CPI 




FPJ4: 


JRZ 


DF8F+2845 




DB 




FPJ5: 


SETB 


DF91+CBFE 




DB 
JR 


DF93+18D0 




DB 



DF95 AF 
DF96 32A9FB 
DF99 217CFB 
DF9C 7E 

DF9D+CB7F 

DF9F+2039 
DFAI 3600 
DFA3 D604 

DFA5*382F 

DFA7+200B 



A,C 

0F8H 

20H ; IF SEEK OR RECAL JUST DONE 

FPJ2 : THEN CHECK FOR HIDDEN INT. 

28H,FPJ2-$-l 

H,DSKCYC; ELSE READY LINE HAS CHANGED STATE 

A,M 

8 ; IF WAITING FOR READY 

IIEND ; THEN EXIT 

28H,IIEND-$-l 

7,M ; ELSE ERROR 

0CBH,7*8*M*0C0H 

FPJ2 ; CHECK FOR HIDDEN INTa 

18H,FPJ2-S-1 



CHECK FOR NEXT OPERATION 



FPOK: XRA A 

STA DSKCNT ; CLEAR DSKCNT 

FPJ8: LXI H,DSKCYC; AND CHECK DSKCYC 

MOV A,M 

BIT 7, A ; IP BIT 7 SET 

DB 0CBH,7»8*A+40H 

JRNZ FPC7 ; THEN ERROR 

DB 20H,FPC7-$-l 

MVI M,0 ; ELSE CLEAR DSKCYC 

SUI 4 ; IF DSKCYC » 0,1,2, OR 3 

JRC IIEND ; THEN EXIT 

DB 38H,IIEND-S-1 

JRNZ FPC1 ; ELSE IF DSKCYC <> 4 THEN ..CI 

DB 20H,FPCl-$-l 



DFA9 3E04 MVI A,4 ; DSKCYC NOW = 4 

DFAB 3269F8 STA SKCYL ; SO DO SEEK TO TRACK 4 

DFAE 3C INR A ; NEW DSKCYC * 5 

DFAF 2166F8 LXI H,SKTBL 

JR FPC9 

DFB2*181F DB 18H,FPC9-$-l 

DFB4 3D FPCl: DCR A ; IF DSKCYC <> 5 

JRNZ FPC2 ; THEN ,.C2 

DFB5+2007 DB 20H,FPC2-$-l 

DFB7 214EF8 LXI H,RCLTBL; DSKCYC NOW * 5 

DFBA 3E06 MVI A, 6 ; SO DO 2ND RECALIBRATE 

JR FPC9 

DFBC+1815 DB 18H,FPC9-$-l 

DFBE 3D FPC2: DCR A ; IF DSKCYC <> 6 

JRNZ FPC5 ; THEN ..C5 

DFBF+2018 DB 20H,FPC5-S-1 



DFC1 CD77DE 
DFC4 34 



CALL GTFLGS ; DSKCYC NOW - 6 

INR M ; SO SET PROPER HMFLG 
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DPC5 3A58F8 
DFC8 B7 

DFC9+2811 
DPCB 3269P8 
DPCE 2166P8 
0P01 3E07 
DPD3 COBCDE 
DFD6 C309F5 

DPD9 3D 

DPDA+2040 

DFDC 3E07 

DPDE 326PPA 

DPE1 212C01 

DPE4 226DPA 

DPE7 3A70PA 

DPEA 327CFB 

OPED 3D 

DPEE+2005 
DFFO 2143P8 

DFF3+1803 
DFF5 2151F8 
DPF8 CD82DE 
DFFB CDC7DE 

DFFE+18D6 



FPC9: 



LDA 
ORA 
JRZ 
DB 
STA 
LXI 
MVI 
CALL 



RWCYL 

A 

FPC6 

28H,FPC6-$-l 



; THEN SEEK TO DESIRED TRACK 



IIEND: JMP 



SKCYL 
H,SKTBL 
A,7 

DORCSK 
IEND 



STORE TRACK IN SEEK TABLE 

NEW DSKCYC = 7 
SEEK TO TRACK 



FPC5: 
FPC7: 

FPC6: 



FPC3: 
FPC4: 



DCR 
JRNZ 
DB 
MVI 
STA 
LXI 
SHLD 
LDA 
STA 
DCR 
JRNZ 
DB 
LXI 
JR 
DB 
LXI 
CALL 
CALL 
JR 
DB 



A ; IF DSKCYC <> 7 
DSKERR ; THEN ERROR, ARE NO OTHERS 
20H,DSKERR-£-l 
A, 7 ; DSKCYC NOW' 7 
RESULT 

H,MTRTIM; SO RESET MOTOR TIMER 
MTRCNT 

DSKCMD ; NEW DSKCYC = 1,2, OR 3 
DSKCYC 

A j IF DSKCYC <> = 1 
FPC3 j THEN ..C3 
20H,FPC3-$-l 

H,FMTTBL; ELSE NEXT OP IS FORMAT 
FPC4 

18H,FPC4-S-1 

H,RWTBL ; NEXT OP IS READ OR WRITE 

SETDT ; CLEAR RESULT BYTES & RESET TIMEOUT COUNTER 
DISKOP ; ISSUE COMMAND 
IIEND 
18H,IIEND-$-l 



READ RESULTS (B) TIMES 



E000 117DFB 


REDRES: 


LXI 


D,ST0 


; ELSE READ RESULTS 


E003 2184FB 




LXI 


H,RESNUM 


E006 C5 


RDRSLl: 


PUSH 


B 




E007 CD2EDF 




CALL 


R765 


;READ 1 BYTE FROM FDC 


EOOA CI 




POP 


B 




EOOB C8 




RZ 




• ERROR, Z BIT SET 


EOOC 12 




ST AX 


D 


; SAVE BYTE 


EOOD 13 




INX 


D 




EOOE 34 




INR 


M 


; INCR COUNTER 






DJNZ 


RDRSLl 


• READ NEXT BYTE 


E00F+10F5 




DB 


10H,RDRSLl-$-l 


E011 04 




INR 


B 


• CLEAR Z BIT 


E012 C9 


• 

9 


RET 








.j. ... 


DISK ERRORS 


1 


E013 210000 


a 

WFRBAD: 


LXI 


H,0 


• -ERROR WHEN WAITING F 


E0I6 226DFA 




SHLD 


MTRCNT 


; CLEAR MTRCNT SO MO' 


E019 C3E7F4 




JMP 


TIMOUT 


; DSKCYC OR WITH OCOH 
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E01C CDABDE 


dskerr: 


CALL 


CLRFDC ; NC 


E01F 3A7CFB 




LDA 


DSKCYC ; 


E022 F680 




ORI 


80H 


E024 327CFB 




STA 


DSKCYC 






JR 


IIEND 


E027+18AD 




DB 


18H,IIEND-S~1 


E029 CDOBDF 


DERTIM: 


CALL 


NOTRDY ; U7 






JR 


IIEND ; 


E02C+18A8 




DB 


18H,IIEND-S-1 



NORMAL OPERATION ERROR 
DSKCYC OR WITH 8 OH 



U765 NOT READY ERROR 
DSKCYC OR WITH OEOH 
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I/O DRIVERS 



OUTPUT A CHARACTER TO THE DISPLAY 



E02E OEOA 


crlf: mvi 


COAH 


E030 CD7EE0 


CALL 


CONOUT 


E033 OBOD 


MVI 


C,0DH 




JR 


CONOUT 


E035+1847 


DB 


18H,C0N0UT-$-l 


E037 AF 


crtout: xra 


A 


E038 3245PA 


STA 


CONFLG 


E03B C3A9B1 


JMP 


DISPLY 




•INPUT A CHARACTER FROM THE KE 


E03E PB 


CRTIN: EI 




E03P 3AAEDA 


LDA 


TIMFLG 


E042 B7 


ORA 


A 


E043 CC91BE 


CZ 


DSPTIM 


E046 F3 


DI 




B047 3AFBF9 


LDA 


KEYCNT ;LOOP 


E04A B7 


ORA 


A 




JRZ 


CRTIN 


E04B+28F1 


DB 


28H,CRTIN-$-l 


E04D E5 


PUSH 


H 


E04B D5 


PUSH 


D 


B04F C5 


PUSH 


B 


E050 212CFA 


LXI 


H,KEYBUF*1 


E053 112BFA 


LXI 


D,KEYBUF 


E056 010F00 


LXI 


B,KBUFLN-1 


E059 1A 


LDAX 
LDIR 


D 


E05A+EDBQ 


DB 


0EDH,0B0H 


E05C 2A3BFA 


LHLD 


KEYPNT 


E05F 2B 


OCX 


H 


E060 223BFA 


SHLD 


KEYPNT 


E063 21FBF9 


LXI 


H,KEYCNT 


E066 35 


DCR 


M 


E067 FB 


EI 




E066 E67F 


ANI 


7FH ;MASK C 


E06A CI 


POP 


B 


E06B Dl 


POP 


D 


E06C El 


POP 


H 


E06D C9 


RET 




E06E 3A0300 


CONIN: LDA 


IOBYTE 


E071 E603 


ANI 


3 


E073 CAFBEO 


JZ 


TTYIN 


E07S 3D 


DCR 


A 




JRZ 


CRTIN 


E077+28C5 


DB 


28H,CRTIN-$-l 
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E079 3D 


DCR 


A 




JRZ 


PTRIN 


E07A+2868 


DB 


28H,PTRIN-S-1 




JR 


CRTIN 


E07C+18C0 


DB 


18H,CRTIN-$-l 


E07E 3A0300 


CONOUT: LDA 


IOBYTE 


E081 E603 


ANI 


3 


E083 CA03E1 


JZ 


TTYOUT 




BIT 


0,A 


E086+CB47 


DB 


0CBH,0«8*A*40H 




JRZ 


LPTOUT 


E088+264A 


DB 


28H,LPTOUT-S- 1 




JR 


CRTOUT 


E08A+18AB 


DB 


18H,CRTOUT-$-l 


E08C 3A0300 


READER: LDA 


IOBYTE 


E08F IF 


RAR 




E090 IF 


RAR 




E091 E603 


ANI 


3 




JRZ 


TTYIN 


B093+2866 


DB 


28H,TTYIN-S-1 


E095 3D 


DCR 


A 




JRZ 


PTRIN 


E096+264C 


DB 


28H,PTRIN-S-1 


E098 3D 


DCR 


A 




JRZ 


CRTIN 


E099+28A3 


DB 


28H,CRTIN-$-l 




JR 


TTYIN 


E09B+185B 


DB 


18H,TTYIN-$-l 


E09D 3A0300 


PUNCH: LDA 


IOBYTE 


EOAO IF 


RAR 




E0A1 IF 


RAR 




E0A2 IF 


RAR 




E0A3 IF 


RAR 




EOA4 E603 


ANI 


3 




JRZ 


TTYOUT 


E0A6+285B 


DB 


28H/TTYOUT-S-1 


E0A8 3D 


DCR 


A 


E0A9 CA37B0 


JZ 


CRTOUT 


EOAC 3D 


DCR 


A 




JRZ 


LPTOUT 


EOAD+2825 


DB 


28H,LPTOUT-$-l 




JR 


TTYOUT 


BOAF+1852 


DB 


18H,TTYOUT-$-l 


E0B1 3A0300 


LIST: LDA 


IOBYTE 


E0B4 17 


RAL 




E0B5 17 


RAL 




E0B6 17 


RAL 




E0B7 E603 


ANI 


3 




JRZ 


TTYOUT 


E0B9+2848 


DB 


28H,TTYOUT-S-l 


EOBB 3D 


DCR 


A 


EOBC CA37E0 


JZ 


CRTOUT 
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JR 


LPTOUT 


SOBF+1813 




DB 


18H,LPT0UT-$-l 




•TEST 


KEYBOARD 


STATUS 


B0C1 3A0300 


CONST: 


LDA 


IOBYTE 


B0C4 E603 




ANI 


3 






JRZ 


TSTTTY 


E0C6+2853 




DB 


28H,TSTTTY-$-l 






BIT 


0,A 


E0C8+CB47 




DB 


0CBH,0»8*A+40H 






JRZ 


LISTST 


E0CA+2820 




DB 


28H,LISTST-S-1 


EOCC 3APBP9 




LDA 


KEYCNT 


EOCF B? 




ORA 


A 


EOOO C8 




RZ 


;N0 CHAR: A=0 


E0D1 3EFP 




MVI 


A,0FFH ;CHAR. : A=OFFH 


E0D3 C9 




RET 






•OUTPUT A CHARACTER TO THE LIST DEVICE 


E0D4 3E10 


LPTOUT 


': MVI 


A,10H 


E0D6 D3F3 




OUT 


SPRTR 


E008 DBF3 




IN 


SPRTR 


EODA E624 




ANI 


24H 


EODC FE24 




CPI 


24H 






JRNZ 


LPTOUT 


E0DE+20F4 




DB 


20H,LPTOUT-$-l 


EOEO 79 




MOV 


AX 


E0B1 D3F2 




OUT 


DPRTR 


E0E3 C9 




RET 






•INPUT 


A CHARACTER FROM THE LIST DEVICE 


E0B4 CD13E1 


ptrin: 


CALL " 


TSTLPT 






JRZ 


PTRIN 


E0E7+28FB 




DB 


28H,PTRIN-0-l 


E0B9 0BF2 




IN 


DPRTR 


EOEB C9 




RET 






•TEST LIST DEVICE STATUS 


EOEC 3A0300 


LISTST: 


LDA 


IOBYTE 


EOBF 17 




RAL 




EOFO 17 




RAL 




E0F1 17 




RAL 




E0F2 6603 




ANI 


3 






JRZ 


TSTTTY 


E0F4+2825 




DB 


28H,TSTTTY-S-1 


E0F6 3D 




DCR 


A 






JRZ 


TSTLPT 


E0F7+281A 




DB 


28HJSTLPT-S-1 


E0F9 AF 




XRA 


A 


EOFA C9 




RET 




EOFB CD1BE1 


ttyin: 


CALL 


TSTTTY 



CP/M MACRO ASSBM 2.0 #042 ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP, 







JRZ 


TTYIN 


E0FE+28FB 




DB 


28H,TTYIN-S-1 


El 00 DBFO 




IN 


DCOMM 


E102 C9 




RET 




E103 3E10 


TTYOUT: 


MVI 


A,10H 


E105 D3P1 




OUT 


SCOKM 


E107 DBF1 




IN 


SCOMM 


E109 B624 




ANI 


24H 


El OB FE24 




CPI 


24H 






JRNZ 


TTYOUT 


E10D+20F4 




OB 


20H,TTYOUT-S-1 


E10F 79 




MOV 


A,C 


E110 D3F0 




OUT 


DCOMM 


E112 C9 




RET 




El 13 3E10 


TSTLPT: 


MVI 


A,10H 


E115 D3F3 




OUT 


SPRTR 


El 17 DBF3 




IN 


SPRTR 






JR 


TTYCOM 


E119+1806 




DB 


18H,TTYC0M-S-1 


E11B 3E10 


> 

TSTTTY: 


MVI- 


A,10H 


EUD D3F1 




OUT 


SCOMM 


El IF DBF1 




IN 


SCOMM 


E121 E601 


TTYCOM: 


ANI 


1 


E123 C6 




RZ 




E124 3BFF 




MVI 


A,0FFH 


E126 C9 




RET 





CHANGE STATUS LATCH - ENTER WITH BITS TO 
BE CHANGED IN A. IF Z IS SET, LATCH WILL 
BE ANDED WITH A VALUE - OTHERWISE ORED. 
DISABLES INTERRUPT 
(A,B) 



E127 F5 


LLATCH: 


PUSH 


PSW 


E128 3ECF 




MVI 


A,0CFH 


E12A F3 




DI 




E12B D3F9 




OUT 


SPIOA 


E12D AF 




XRA 


A 


E12E D3F9 




OUT 


SPIOA 


El 30 3A46FA 




LDA 


LSTATE 


E133 47 




MOV 


B,A 


E134 Fl 




POP 


PSW 






JRZ 


LLJl 


E135+2803 




DB 


28H,LLJl-$-l 


E137 BO 




ORA 


B 






JR 


LLJ2 


E138+1601 




DB 


18H,LLJ2-S-1 


E13A AO 


LLJl: 


ANA 


B 


E13B 3246FA 


LLJ2: 


STA 


LSTATE 


B13B D3F8 




OUT 


DPIOA 


E140 3BB8 




MVI 


A,0B8H 


El 42 D3FA 




OUT 


DPIOB 


E144 3E98 




MVI 


A,98H 
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B146 D3PA 
BUS 3EB8 
E14A D3FA 
B14C C9 



OUT 


DPIOB 


MVI 


A,0B8H 


OUT 


DPIOB 


RET 





•GENERAL MESSAGE ROUTINE 



B140 4B 


MESSG: 


MOV 


CM 






BIT 


7,C 


E14B+CB79 




DB 


0CBH,7»8*C+40H 






RES 


7,C 


E150+CBB9 




DB 


0CBH,7*8+C+80H 


B152 23 




INX 


H 


E153 C27EE0 




JNZ 


CONOUT 


E156 CD7BE0 




CALL 


CONOUT 






JR 


MESSG 


B159+16P2 




DB 


18H,MESSG-3-l 




•DISPLAY H AS 


POUR ASCII CHARS. 


E15B 44 


DSADDR: 


MOV 


B,H 


B15C CD60B1 




CALL 


DSHEX 


B15P 45 




MOV 


B,L 




•DISPLAY B AS 


TWO ASCII CHARACT 


B160 78 


dshex: 


MOV 


A3 


B161 07 




RLC 




B162 07 




RLC 




B163 07 




RLC 




E164 07 




RLC 




El 65 CD69E1 




CALL 


DHJI 


B168 78 




MOV 


A3 


B169 E60P 


DHJi: 


ANI 


0FH 


E16B C630 




ADI 


30H 


E16D FE3A 




CPI 


3AH 


B16F FA74E1 




JM 


DHJ2 


B172 C607 




ADI 


7 


E174 4F 


DHJ2: 


MOV 


C,A 


B175 C37EE0 




JMP 


CONOUT 



MAKE THE SOUND SPECIFIED BY THE 14 BYTE TABLE 
POINTED TO BY H-L (R14 OF THE SOUND GENERATOR 
IS FIRST, RO LAST) 



B178 7E 


sound: 


MOV 


A,M 


B179 3231F6 




STA 


TONPER 


E17C 23 




INX 


H 


E17D 3ECF 




MVI 


A,0CFH 


E17F F3 




DI 




E180 D3F9 




OUT 


SPIOA 


E182 AF 




XRA 


A 


E183 D3F9 




OUT 


SPIOA 


E185 3EFF 




MVI 


A,0FFH 


B187 D3FA 




OUT 


DPIOB 


E189 01F80E 




LXI 


B,14«256*DPIOA 


E18C 05 


SOLI; 


OCR 


B 
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E18D+ED41 
E18F 04 
El 90 3EC3 
El 92 D3FA 
El 94 3EE3 
E196 D3FA 

E196+EDA3 
E19A 3EE7 
E19C D3FA 
E19E 3EC7 
E1A0 D3FA 
E1A2 3EE7 
E1A4 D3FA 

E1A6+20E4 
E1A8 C9 



OUTP 


B 


DB 


0EDH,B»8*41H 


INR 


B 


MVI 


A,0C3H 


OUT 


OPIOB 


MVI 


A,0E3H 


OUT 


DPIOB 


OUTI 


;SEND THE DATA 


DB 


0EDH,0A3H 


MVI 


A,0B7H 


OUT 


DPIOB 


MVI 


A,0C7H 


OUT 


DPIOB 


MVI 


A,0E7H 


OUT 


DPIOB 


JRNZ 


SOLI 


DB 


20H,SOLl-$-l 


RET 
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500 DISPLAY & KEYBOARD DRIVER 



CONTROL CODES 



CTRL/G (07H) BELL 

CTRL/H (06H) BACKSPACE 

CTRL/I <09H> TAB 

CTRL/J <0AH) LINE FEED 

CTRL/K (OBH) REV. LINE FEED 

CTRL/L (OCH) RIGHT CURSOR 

CTRL/H (ODH) CARRIAGE RETURN 

CTRL/X (06H) CLEAR KEYBOARD BUFFER 

CTRL/Z (1AH) CLEAR ACTIVE REG. & HOME CURSOR 

CTRL/" (1EH) CURSOR HOME 

BS (08H) BACKSPACE 

CR (ODH) CARRIAGE RETURN 

LF (OAH) LINE FEED 



ESCAPE CODES 



ESC OXXYY PLOT POINT 

ESC 1XXYY PLOT VECTOR 

ESC 2XXYYXXYY BLOCK DRAW 

ESC 3 CLEAR GRAPHICS 6, PLOT BRIGHT 

ESC 4XXYYXXYY BLOCK FILL 

ESC 5 M1M2 SET MASKS 



ESC 6 
ESC 7 
ESC S 
ESC 9 
ESC : 
ESC ; 
ESC < 



DISABLE GRAPHIC IMAGE 

ENABLE GRAPHIC IMAGE 

SET TO PLOT BRIGHT 

SET TO PLOT DARK 

READ DATE 

SET PRINTER BAUD FROM CMOS RAM 

SET COMM. BAUD FROM CMOS RAM 



ESC *LC DIRECT CURSOR MOVE 

ESC > READ TIME 

ESC ?A READ CMOS RAM 

ESC SAD WRITE TO CMOS RAM (CONSULT CMOS ALLOCATION) 

ESC A CURSOR UP 

ESC B CURSOR DOWN 

ESC C CURSOR RIGHT 

ESC D CURSOR LEFT 

ESC B ~ NOT USED — 

ESC F ~ NOT USED — 

ESC G ~ NOT USED ~ 

ESC H HOME 
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ESC 


I 


ESC 


J 


ESC 


K 


ESC 


L 


ESC 


M 


ESC 


N 


ESC 





ESC 


P 


ESC 


Q 


ESC 


R 


ESC 


SA 


ESC 


TA 


ESC 


UA 


ESC 


VA 


ESC 


WS1 


ESC 


XTB 


ESC 


YLC 


ESC 


Z 


ESC 


C 


ESC 


\ 


ESC 


3 


ESC 


A 


ESC 




ESC 


* 


ESC 


A 


ESC 


B 


ESC 


C 


ESC 


D 



REVERSE LIRE PEED 
ERASE TO END OP SCREEN 
ERASE TO END OP LINE 
INSERT LINE 
DELETE LINE 
SET TABS 
CLEAR TABS 
DELETE CHAR. 
INSERT CHAR. MODE ON 
INSERT CHAR. MODE OPP 
SELECT CHAR. SIZE 
SELECT CHAR. SET 
SELECT ATTRIBUTE 
SELECT ALT. LEAD-IN 
...SI 5 LOAD TONE TABLE AND EXECUTE 
SET ACTIVE REGION 
DIRECT CURSOR MOVE . 
RESET PARAMETERS 

SAVE PARAMETERS (SYSTEM USE ONLY) 
CLR. SCN. & RESET PAR. 
RECALL PARAMETERS (SYSTEM USE ONLY) 
WORD WRAP OPP 
WORD WRAP ON 
WSPLAG SET (ON) 
WSPLAG RESET (OPP) 
SOUND TONE PROM TONE TABLE 
CURSOR OPP 
CURSOR ON 
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,» 1 

I DISPLAY ENTRY (CHARACTER IN C) 
I- 1 

I 1 

I MASTER MODULE i 
I ,| 





disply: 


SSPD 


DSPSTK ; SAVE STACK POINTER 


E1A9+BD73 




DB 


0EDH,73H 


B1AB+4BFA 




DW 


DSPSTK 


E1AD 31BAPP 




LXI 


SP,DSPTEM ; SET STACK POINTER TO DISPLAY S 


E1B0 3BFF 




MVI 


A,0FFH ; SET DSPFLG TO INHIBIT VALET 


B1B2 32ASDA 




STA 


DSPPLG 


E1B5 B5 


VALDSP 


: PUSH 


H ; SAVE REGISTERS 


E1B6 D5 




PUSH 


D 


B1B7 C5 




PUSH 


B 


BIBB P5 


, 


PUSH 


PSW 






ADD OFFSET TO LINE# 


E1B9 CD6EE2 


LPAGN: 


CALL 


CMPOP1 ; CALCULATE LINE OFFSET 






CHECK 


CYCLE 


E1BC 3APAP9 




LDA 


DSPCYC 


B1BP B7 




ORA 


A ; IF DSPCYC <> 


E1C0 C275E3 




JNZ 


ESCCHK ; THEN GO CHECK DSPCYC 






IS CHARACTER ESCAPE ? 






RES 


7,C ; ELSE MAKE SURE CHAR. IS ASCII 


E1C3+CBB9 




DB 


0CBH,7«8*C*80H 


E1C5 79 


# 


MOV 


A,C 


E1C6 PE1B 




CPI 


ESC ; IF CHAR. » ESC 






JRZ 


DSPJI ; THEN DSPJI 


E1C8+2806 




DB 


28H,DSPJ 1-0-1 


E1CA 3A06PA 




LDA 


LEADIN ; ELSE 


E1CD B9 




CMP 


C ; IF CHAR. <> LEADIN 






JRNZ 


DSPJ2 ; THEN OUTPUT IT TO DISPLAY DRIVER 


E1CE+2005 




DB 


20H,DSPJ2-$-l 


E1D0 3E01 


DSPJi: 


MVI 


A,l ; ELSE SET DSPCYC = 1 


E1D2 C3P8B1 




JMP 


BXIT3 ; AND EXIT 






IS CHARACTER CONTROL ? 


E1D5 79 


DSPJ2: 


MOV 


A,C 


E1D6 E660 




ANI 


60H j IF CHAR. IS A CONTROL CHAR. 


E1D8 CA97E2 




JZ 


CTROL ; THEN GO TO CONTROL CASE 



TRANSLATE CHARACTER TO ALTERNATE 
SET, IF NEEDED. 



CP/M MACRO ASSEM 2.0 #046 

E1DB CD7DE2 CALL 
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CHKCHR ; ELSE XLATE TO ALTERNATE SET IF NEEDED 



; OUTPUT CHAR. TO SCREEN AND 
; INCREMENT H ACCORDINGLY 

E1DE CD17E2 CHRRET: CALL OUTCHR • OUTPUT CHAR. TO SCREEN 

; IF END OF LINE, EXIT. 



PSW 

WRPFLG 

A ; IF LINE WRAP ON 

DSPJ3 ; THEN ,.J1 

28H,DSPJ3-S-1 

PSW ; ELSE LINE WRAP OFF 

DSPRET 

20H,DSPRET-$-l 

CUSTH 

16H,CUSTH-S-1 

PSW 

LFAGN ; WRAP IF NEEDED 

20H,LFAGN-S-1 



E1E1 F5 




PUSH 


E1E2 3A01FA 




LDA 


E1E5 B7 




ORA 
JRZ 


E1E6+2805 




DB 


E1E6 Fl 


» 


POP 
JRNZ 


E1E9+2010 




DB 
JR 


E1EB+1803 




DB 


E1ED Fl 


DSPJ3: 


POP 
JRNZ 


E1BE+20C9 




DB 

CTflPS 


E1F0 7C 


CUSTH: 


OX URt 

MOV 


E1F1 3208FA 




STA 



STORE NEW H IN CHRADR+1 



A,H ; STORE POSITION OF NEXT CHAR. 
CHRADR+1 



; OUTPUT CURSOR TO <H)*1,<L> 
E1F4 CD57E2 CRSRET: CALL OUTCUR ; OUTPUT CURSOR 
• EXIT POINTS 



E1F7 AF 


EXIT2: 


XRA 


A 


; CLEAR DSPCYC 


E1F6 32FAF9 


BXIT3: 


STA 


DSPCYC 


; STORE DSPCYC 


E1FB 3A4SFA 


DSPRET: 


LDA 


CONFLG 




E1FE B7 




ORA 


A 


; IF IN VALET 






JRNZ 


DSPJ4 


; THEN DSPJ4 


E1FF+2011 




DB 


20H,DSPJ4-$-l 


E201 3C 




INR 


A 


; ELSE 


E202 3245FA 




STA 


CONFLG 


; SET CONFLG <> 


E205 AF 




XRA 


A 


; DSPFLG * 


E206 32A5DA 




STA 


DSPFLG 




E209 Fl 




POP 


PSW 


; RESTORE REGISTER 


E20A CI 




POP 


B 




E20B Dl 




POP 


D 




E20C El 




POP 


H 








LSPD 


DSPSTK 


; RESTORE STACK PC 


E20D+ED7B 




DB 


0BDH,07BH 


E20F*4BFA 




DW 


DSPSTK 




E2U C9 




RET 




; RETURN 


E212 Fl 


DSPJ4: 


POP 


PSW 




B213 CI 




POP 


B 
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B214 Dl POP 

B21S Bl POP H 

B216 C9 RBT 

PAGB 
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, , 

I MISC. ROUTINES FOR 
I MASTER MODULE 



OUTPUT CHAR. TO HL 



E217 5F 


OUTCHR 


: MOV 


E,A 


E218 1601 




MVI 


D,l 


E21A 3A00FA 




LDA 


CURATT 






BIT 


4,A 


E21D+CB67 




DB 


0CBH,4»8+A+40H 






JRZ 


OUTCR1 


E21F+2801 




DB 


28H,0UTCR1-S-1 


E221 14 




INR 


D 


E222 7D 


OUTCR1J 


MOV 


A,L 


E223 44 




MOV 


B,H 


E224 F6E0 




ORI 


OEOH 


E226 D3EE 




OUT 


SDSPY 


E228 OEFE 




MVI 


CDDSPY 






OUTP 


E 


B22A+ED59 




DB 


0EDH,E«8+41H 


E22C B6DF 




ANI 


ODFH 


E22E D3EE 




OUT 


SDSPY 


E230 E61F 




ANI 


1FH 


E232 6F 




MOV 


L,A 


E233 3A00FA 




LDA 


CURATT 






OUTP 


A 


E236+ED79 




DB 


0EDH,A«8*41H 


E236 7C 




MOV 


A,H 


E239 FE4F 




CPI 


79 


E23B F5 


p 


PUSH 


PSW 


E23C 3A01FA 




LDA 


WRPFLG 


E23F B7 




ORA 


A 






JRNZ 


WP1 


E240+2010- 




DB 


20H,WP1-S-1 


E242 Fl 


» 


POP 


PSW 






JRZ 


OUTEXT ; DO IF WRAP ON 


£243*2805 




DB 


28H,OUTEXT-S-l 


E245 24 


OUTCR2: 


INR 


H 


E246 15 




DCR 


D 






JRNZ 


OUTCR1 ;IF NOT DOUBLE ( 


E247+20D9 




DB 


20H,OUTCR1-S-1 


E249 C9 




RET 


; THEN RETURN, 


E24A AF 


OUTEXT: 


XRA 


A 


E24B 3208FA 




STA 


CHRADR+1 


E24E OEOA 




MVI 


C,LF 


E250 Bl 




ORA 


C 


E251 C9 




RET 
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E252 Fl WPi: POP PSW ; DO IF WRAP OFF 

JRNZ OUTCR2 

E253+20F0 DB 20H,OUTCR2-S-l 

E255 14 INR D 

E256 C9 RET 







OUTPUT 


CURSOR TO HL 


E257 3A02FA 


outcur: 


LDA 


CURCTL 


E2SA B7 




ORA 


A 


E25B CO 




RNZ 




E25C 3EAC 




NVI 


A,0ACH 


E25B D3EE 




OUT 


SDSPY 


E260 7C 




MOV 


A,H 


E261 3C 




INR 


A 


E262 D3FE 




OUT 


DDSPY 


E264 3EAO 




MVI 


A,0ADH 


E266 D3EE 




OUT 


SDSPY 


E266 70 




MOV 


A,L 


E269 E61F 




ANI 


1FH 


E26B D3FB 




OUT 


DDSPY 


E26D C9 




RET 








ADD OFFSET TO LINB# 


E26E 2A07FA 


CMPOFl: 


LHLD 


CHRADR 


E271 3AA4DA 


cmpoff: 


LDA 


L1N0FS 


E274 85 




ADD 


L 


E275 FE18 




CPI 


24 






JRC 


CMPJl 


E277+3802 




DB 


38H,CMPJ1-S-1 


E279 C6E8 




ADI 


-24 


E27B 6F 


CMPJl: 


MOV 


L'A 


E27C C9 




RET 





TRANSLATE ALT. CHAR. SET 



E27D 


79 


CHKCHR: MOV 


A,C 




E27E 


FE40 


CPI 


'8' 




E280 


D8 


RC 


9 


- ADDED 


E281 


FE7F 


CPI 


7FH 




E283 


DO 


RNC 


9 


- ADDED 


E284 


E63F 


ANI 


3FH 




E286 


F5 


PUSH 


PSW 




E287 


118CP6 


LXI 


D,CHRTBL 




E28A 


EB 


XCHG 






E28B 


3AFFF9 


LDA 


CURCHR 




E28S 


4F 


MOV 


v* #A 




E28F 


0600 


MVI 


B,0 




E291 


09 


DAD 


B 




E292 


7E 


MOV 


A»M 




E293 


CI 


POP 


B 




E294 


BB 


XCHG 






E295 


BO 


ORA 


B 




E296 


C9 


RET 
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#053 
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CONTROL CASE 



E297 79 ( 


:trol: 


HOV 


A,C 




•1 BACK SPACE 


1 


B298 FB08 ( 


:TR0L2J 


CPI 


BS 






JRNZ 


CLCR 


E29A+2024 




DB 


20H,CLCR-$-l 


E29C 3A00FA 




LOA 


CURATT 






BIT 


4, A 


B29F+CB67 




DB 


0CBH,4«8+A+40H 






JRZ 


CLJ1 


E2A1+2801 




DB 


28H,CLJl-0-l 


E2A3 25 




OCR 


H 


E2A4 25 C 


lji; 


DCR 


H 


E2A5 3BFF 




HVI 


A,0FFH 


E2A7 BC 




CMP 


H 


E2A8 FAF0E1 




JM 


CUSTH 


B2AB 3A01FA 




LDA 


WRPFLG 


B2AB B7 




ORA 


A 






JRNZ 


CLJ2 


E2AF+200A 




DB 


20HXLJ2-$-l 


E2B1 7C 




MOV 


A,H 


E2B2 D6B0 




SUI 


176 


E2B4 3206FA 




STA 


CHRADR+1 


E2B7 67 




MOV 


H,A 


E2B8 C39BE4. 




JMP 


REVLF 


E2BB 2600 C 


LJ2: 


MVI 


H,0 


E2BD C3F0E1 




JMP 


CUSTH 



! CARRIAGE RETURN I 



E2C0 FEOD ( 


:lcr: 


CPI 


CR 






JRNZ 


CLF 


E2C2+2005 




DB 


20H,CLF-S-1 


E2C4 2600 




HVI 


H,0 


E2C6 C3F0E1 




JMP 


CUSTH 




;l LINB 


FEED 


1 


E2C9 FEOA C 


:lf: 


CPI 


LF 






JRNZ 


CLBL 


E2CB+2049 




DB 


20H,CLBL-S-1 


E2CD 3A04FA C 


,laF 1 e 


LDA 


BOTACT ;IF NOT AT BOTTOM 



CP/M MACRO ASSEM 2.0 #054 ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 



E2D0 47 




MOV 


B,A 


E2D1 3A07FA 




LDA 


CHRADR 


E2D4 B8 




CMP 


B 






JRKZ 


CLF4 ; THEN MOVE CURSOR 


E2D5+2034 




DB 


20H,CLF4-$-l 


E2D7 3A05PA 




LDA 


MAGACT ; ELSE IF REGION NOT 


E2DA PE17 




CPI 


23 ; FULL SCREEN 






JRNZ 


CLF3 ; THEN SOFTWARE SCROLL 


E2DC+2028 




DB 


20H,CLF3-$-l 


E2DE 2E00 


> 


MVI 


L,0 


E2B0 CD71E2 




CALL 


CMPOFF 


E2E3 CD1DE8 




CALL 


LFCLR1 


E2E6 3AA4DA 




LDA 


LINOFS ;GRAPHIC SCROLL 


E2E9 57 




MOV 


D,A 


E2EA 0601 




MVI 


B,l ;CLEAR ONE LINE 


E2EC CDC9EC 




CALL 


GRFCLR+4 


E2EF 3EAB 




MVI 


A,0ABH ; ELSE HARDWARE SCROLL 


E2F1 D3EE 




OUT 


SDSPY 


B2F3 D3FE 




OUT 


DDSPY 


E2F5 21A4DA 




LXI 


H,LINOFS 


E2P8 7E 




MOV 


A,M 


E2F9 3C 




INR 


A 


E2PA FE18 




CPI 


24 






JRNZ 


CLF2 


E2PC+2001 




DB 


20H,CLF2-$-l 


E2PE AP 




XRA 


A 


E2FP 77 


CLF2: 


MOV 


M,A 


E300 CD6EE2 




CALL 


CMPOF1 


E303 C3P4E1 




JMP 


CRSRET ; END HARDWARE SCROLL 


E306 CDC7E7 CLF3: 


CALL 


SCRLUP ; BEGIN SOFTWARE SCROLL 






JR 


CLEXT ; END SOFTWARE SCROLL 


E309+181D 




DB 


18H,CLEXT-S-1 


E30B 3C CLF4: 


INR 


A ; BEGIN MOVE CURSOR DOWN 


E30C 3207FA 




STA 


CHRADR 


E30F 6F 




MOV 


L,A 


E310 CD71E2 




CALL 


CMPOFF 


E313 C3F4E1 




JMP 


CRSRET ; END MOVE CURSOR DOWN 




;i BELI 


L i 
-1 

CPI 




E316 FE07 ( 


;lbl: 


BEL 






JRNZ 


CLTB 


E318+2011 




DB 


20H,CLTB-$-l 


E31A 3A50FA 




LDA 


CURBEL 






BIT 


0,A 


E31D+CB47 




DB 


0CBH,0«8*A*40H 






JRNZ 


CLEXT 


E31F+2007 




DB 


20H,CLEXT-$-l 


E321 217DF6 




LXI 


H3ELLTN 


E324 CD78E1 




CALL 


SOUND 


E327 FB 




EI 





CP/M MACRO ASSBM 2.0 #055 ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 
E328 C3P7B1 CLBXT: JMP BXIT2 



B32B FB09 

8320*2003 
S32F C393BS 



B332 PBOB 

6334*2003 
B336 C39BB4 



B339 FBOC 

S33B+2003 
B330 C36BB4 



B340 PB1B 

8342*2003 
B344 C3SDB4 



■I 



I TAB I 
I ) 

CLTB: CPI 09H 

JRNZ CLRV 

DB 20H.CLRV-S-1 

JMP MOVTAB 



•I 



I 

I R8V. UMB PBBD I 



CLRV: CPI 
JRNZ 
DB 
JMP 

I CURSOR RIGHT I 



OBH 
CLRT 

20H,CLRT-*-l 
RBVLP 



•t 



CLRT: 



CPI 
JRNZ 
OB 
JMP 



OCH 
CLHH 

20H,CLHH-*-l 
RITCUR 



-I 



I CURSOR HOMB I 



CLHH: 



CPI 


1EH 


JRNZ 


CLCLR 


DB 


20H,CLCLR-*-l 


JMP 


HOMCUR 



I CLEAR ACTIVB REGION I 



8347 PB1A 


clclr: 


CPI 


1AH 






JRNZ 


CTLX 


8349*2018 




OB 


2QH,CTLX-S-1 


B34B 3A03FA 




LDA 


TOPACT 


B34B 6F 




MOV 


L,A 


S34F 2600 




MVI 


H,0 


8351 2207FA 


ctrlz: 


SHLD 


CHRADR 


8354 CD71B2 




CALL 


CMPOFF 


8357 CD57B2 




CALL 


OUTCUR 


B3SA CD4AB9 




CALL 


CLTOND 


B35D CDC5BC 




CALL 


GRFCLR 


E360 C3F7B1 


clz: 


JMP 


BXIT2 






wP/K MACRO ASSBH 2.0 #056 ATTACHE BIOS 6 BOOT; COPYRIGHT 1981. OTRONA CORP. 





CLEAR KEYB 


OARD BUFFER 


S363 FE18 CTLX! CPI 


CTRLX 




JRNZ 


CLZ 


E365*20F9 


DB 


20H,CLZ-6-l 


B367 212BFA 


LXI 


H,KBYBUF 


E36A AP 


XRA 


A 


E36B P3 


01 




B36C 32PBF9 


STA 


KEYCNT 


E36F 223BFA 


SHLD 


KEYPKT 


E372 FB 


EI 






JR 


CLZ 


~??3*ieHB 


OB 


18H,CLZ-*-l 



PAGE 



CP/M MACRO ASSEM 2.0 #057 ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 



ESCAPE CASE 



E375 3D 


ESCCHK: DCR 


A 




JRZ 


ESCCK1 


E376+280B 


DB 


28H,ESCCKl-$-l 


E378 3D 


DCR 


A 


B379 PE15 


CPI 


15H 




JRNC 


J19B 


E37B+3068 


DB 


30H,J19B-S-1 


E37D B5 


PUSH 


H 


E37E 2119F8 


LXI 


H,CYCTBL 




JR 


BSCCK2 


E381+180D 


DB 


18H,BSCCK2-$-l 



CALCULATE ADDRESS OP VECTOR FROM CHAR. 
GET VECTOR, PUSH IT AND EXECUTE (RET) 
TO JUMP TO IT. 



B383 79 
E364 D630 

E3S6+3813 
B388 PE35 

E38A+300F 
E38C E5 
E38D 21AFF7 



ESCCKl: MOV 
SUI 
JRC 
DB 
CPI 
JRNC 
DB 
PUSH 
LXI 



A,C ; MOVE NEXT CHAR. TO A 

'0' ; SUBTRACT OFFSET 

NFGESC ; IF CARRY, THEN INVALID CHAR. 

38H,NFGESC-S-1 

'5' ; IF GREATER THAN 64H (NOW 34H) 

NFGESC ; THEN INVALID CHAR. 

30H,NFGBSC-S-1 

H 

H,ESCTBL 



E390 07 
E391 5F 
E392 1600 
E394 19 
E395 5E 
E396 23 
E397 56 
S398 El 
E399 D5 
E39A C9 



ESCCK2: RLC 

MOV E,A 

MVI D,0 

DAD D 

MOV B,M 

INX H 

MOV D,M 

POP H 

PUSH D 
RET 



ELSE MULTIPLY BY 2 
MOVE TO LSB OF OFFSET 
MSB OF OFFSET * 
HL=(HL ♦ DB) POINTS TO VECTOR 
MOVE LSB OF VECTOR TO E 

MOVE MSB OF VECTOR TO D 
RESTORE CURSOR ADDRESS 
PUSH VECTOR ON STACK 
JUMP TO VECTOR ADDRESS 



E39B 79 
E39C E67F 
E39E C3DEE1 



NFGESC: MOV 
ANI 
JMP 



AX 
7FH 
CHRRET 



PAGE 
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I - PLOT POINT I 



E3A1 32BAP9 


ppoint: 


STA 


GRFCHD 




E3A4 AF 


PPNTl: 


XRA 


A ; CLEAR GF 


APH] 


E3A5 32FDF9 




STA 


GRFERR 




E3A8 3B0E 




MVI 
JR 


A,0BH ; DSPCYC ' 
J19C 


OEH 


E3AA+182F 




OB 


18H,J19C-$-l 





,. 1 

I 1 - PLOT VECTOR I 



•I 



E3AC 3E01 


pvctor: 


MVI 


A,l 


E3AE 32EAF9 


PVCTl: 


STA 


GRFCMD 


E3B1 2AF2F9 




LHLD 


GRX 


E3B4 22F4F9 




SHLD 


GRX1 


E3B7 2265FA 




SHLD 


GRX 12 


E3BA AF 




XRA 


A 


E3BB 32P7F9 




STA 


GRY+1 


E3BB 2AF6F9 




LHLD 


GRY 


E3C1 22F8F9 




SHLD 


GRY1 


E3C4 2267FA 




SHLD 


GRY 12 






JR 


PPNTl 


E3C7+18DB 




DB 


18H,PPNT1 



•I 



( 2 - BLOCK DRAW I 
I 1 



E3C9 3E03 


BLKDRW: MVI 


A, 3 




JR 


PPOINT 


E3CB+16D4 


DB 


18H,PPOINT-$-l 



•I 



I 3 - CLEAR GRAPHICS 



E3CD CDC5EC 


CLRGRF: CALL 


GRFCLR 




JR 


PTBRT 


E3D0+181B 


DB 


18H,PTBRT-S-1 



I 1 

I 4 - BLOCK FILL I 



E302 3E02 
E3D4+18CB 



BLKFIL: MVI 
JR 
DB 



A,2 
PPOINT 
18H,PPOINT-S-l 



I 5 - SET MASKS FOR FILL I 



CP/M MACRO ASSBM 2.0 #059 ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 



;»• 



B3D6 3E0O 
B3D8 32BAF9 
B30B C3P8B1 



E3DB AF 
E3DF 3BFD 
E3B1 CD27B1 
B3B4 FB 
B3B5 C3F7B1 



SETMSK: MVI 
STA 
J19C: JMP 



A,0DH 
GRFCHO 
BXIT3 



! 6 - DISABLE GRAPHIC IMAGE I 



•I 



DSBGRFS XRA 
MVI 

L6: CALL 
EI 

J19B: JMP 



A 

A,-3 ; Z BIT SET ALREADY 

LLATCH 



EXIT2 



I 7 - ENABLE GRAPHIC IMAGE I 



•» 



E3E8 3E02 


bnbgrf: MVI 


A, 2 


E3BA B7 


ORA 


A 




JR 


L6 


E3EB+18F4 


DB 


18H,L6-S-1 



; A*2, Z BIT IS CLEAR 



I 8 - SET TO PLOT BRIGHT I 



E3ED 3EC7 


PTBRT: 


MVI 


A,0C7H 


E3EF 32BBEB 


PTBRl: 


STA 


GRFBIT+1 






JR 


J19B 


E3F2*18F1 




DB 


18H,J19B-3-l 



I 9 - SET TO PLOT DARK I 



E3F4 3E87 


PTDRK: 


MVI 


A,87H 






JR 


PTBRl 


E3F6*18F7 




DB 


18H,PTBRl-$-l 



: - READ DATE I 



•! 



E3F8 CD54E7 


reddat: 


CALL 


READAT 


E3FB 21AAFB 




LXI 


H,QKIBYT 


E3FE 010700 




LXI 


B,7 


E401 FE3F 




CPI 


'?' 






JRNZ 


RDATI 


1403*2004 




DB 


20H,RDAT1 


E405 010100 




LXI 


B,l 


E408 77 




MOV 


M,A 


E409 CD81F5 


RDATi: 


CALL 


PUSHKY 






JR 


J19B 



-$-1 



CP/M MACRO ASSEM 2.0 #060 
E40O18D7 DB 



E40E CD26EF 
E411 C3P7E1 



ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 
18H,J19B-S-1 



; - SET PRINTER BAUD FROM CMOS RAM I 



•I 



CMOSPN: CALL 
A513: JMP 



ADJPNT 
EXIT2 



, . 1 

I < - SET COMM. BAUD FROM CMOS RAM I 



E414 CD2DEF 


CMOSCM: CALL 


ADJCOM 




JR 


A513 


E417+18F8 


DB 


18H,A513-S-1 



« = - DIRECT CURSOR MOVE I 



E419 3E02 


DRCTMV." MVI 


A,2 




JR 


J19C 


E41B+18BE 


DB 


18H,J19C-S-1 



■I 



t > - READ TIME I 
, 1 



E41D CD2EE7 


REDTIM: 


CALL 


READTM 


E420 21ABFB 




LXI 


H,SCHDS 


E423 010600 




LXI 


B,6 


E426 FE3F 




CPI 


'?' 






JRNZ 


REDTMl 


E428+2004 




DB 


20H,REDTMl-$-l 


E42A 010100 




LXI 


B,l 


E42D 77 




MOV 


M,A 


E42E CD81F5 


REDTMl: 


CALL 


PUSHKY 






JR 


A513 


E431+18DE 




DB 


18H,A513-S-1 



1 

? - READ CMOS RAM 
j 



E433 3E12 


REDRAM: MVI 


A,12H 




JR 


J19C 


E435+18A4 


DB 


18H,J19C-S-1 



6 - WRITE CMOS RAM I 



E437 3E13 


WRTRAM: MVI 


A,13H 




JR 


J19C 


E439+18A0 


DB 


18H,J19C-$-l 



CP/M MACRO ASSBM 2.0 



#061 



ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 



I A - UP CURSOR I 



I 



E43B 3A07PA 


UPCUR: 


LOA 


CHRADR 


E43E 47 




HOV 


B,A 


E43F 3A03PA 




LOA 


TOPACT 


B442 B8 




CMP 


B ;IF TOP OF ACT. REG. 






JRZ 


A45A ; THEN RETURN 


E443+286D 




OB 


28H,A45A-$-l 


E445 2D 


UPCURlS 


OCR 


L ; ELSE MOVE CURSOR UP 


E446 F24BE4 




JP 


UPCUR2 


E449 2E17 




MVI 


L,23 


E44B 05 


UPCUR2: 


OCR 


B 


E44C 78 




MOV 


A3 


E440 3207PA 




STA 


CHRAOR 






JR 


A42B 


E450+1819 




OB 


18H,A42B-$-l 



-I 



i B - DOWN CURSOR I 



E452 3A07FA 


DWNCUR: 


LDA 


CHRADR 


E455 47 




MOV 


B,A 


E456 3A04FA 




LDA 


BOTACT 


E4S9 B8 




CMP 


B 


E4SA CAF7E1 




JZ 


EXIT2 


E45D 2C 


DNCURl: 


INR 


L 


E45E 3E16 




MVI 


A,24 


E460 BD 




CMP 


L 


E461 C266B4 




JNZ 


ONCUR2 


E464 2E00 




MVI 


L,0 


E466 04 


DNCUR2: 


INR 


B 


E467 78 




MOV 


A,B 


E468 3207FA 




STA 


CHRAOR 


E46B C3F4E1 


A42B: 


JMP 


CRSRET 



;IF BOTTOM OF ACT. REG. 
j THEN RETURN 
: ELSE MOVE CURSOR DOWN 



1 

C - RIGHT CURSOR 



E46E 3A00FA 


RITCUR: 


LDA 
BIT 


E471+CB67 




DB 
JRZ 


E473+2801 




DB 


E475 24 




INR 


E476 24 


A431: 


INR 


E477 3E4F 




MVI 


E479 BC 




CMP 


E47A F2F0E1 




JP 


E47D 3A01FA 


* 


LDA 


E480 B7 




ORA 



CURATT 

4, A jDOUBBLE WIDTH MODE ? 

0CBH,4»8*A*4QH 
A431 

28H,A431-$-l 
H 
H 

A,79 

H ;IF NOT AT RIGHT BOUNDARY 
CUSTH ; THEN MOVE CURSOR 

WRPFLG 

A ; IF WRAP OFF 



CP/M MACRO ASSEM 2.0 #062 ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 





JRNZ 


E481+202F 


DB 


E483 CD4AE2 


CALL 


E486 AF 


XRA 


E487 32FAF9 


STA 


E48A C3B9E1 


JMP 



A45A ; THEN EXIT2 
20H,A45A-S-1 



CALL OUTEXT ; ELSE CLEAR COLOUMN # 
A 

DSPCYC 
LFAGN ; AND DO A LINE FEED 



1 

LEFT CURSOR 
1 



IS CTROL2+4 IN ESCTBL 



•I 



I E - NOT USED 
I ,., — , 



IS EXIT2 IN TABLE 



F - NOT USED I 



•I 



IS EXIT2 IN TABLE 



, 1 

I G - NOT USED 



IS EXIT2 IN TABLE 



H - HOME CURSOR I 



E48D 3A03FA 


HOMCUR: 


LDA 


TOPACT 


E490 6F 




MOV 


L,A 


E491 2600 




MVI 


H,0 


E493 2207FA 




SHLD 


CHRADR 


E496 CD71E2 




CALL 


CMPOFF 






JR 


A49A 


E499+1811 




DB 


18H,A49A-$ 



I I * REV. LINE FEED I 



E49B 3A07FA 


REVLF: 


LDA 


CHRADR 




E49B 47 




MOV 


B,A 




E49F 3A03FA 




LDA 


TOPACT 




E4A2 B8 




CMP 


B 


;IF NOT AT TOP OF A.R 


E4A3 C245E4 




JNZ 


UPCUR1 


• THEN MOVE CURSOR 


E4A6 CDF0E7 




CALL 


SCRLDN 


; ELSE SCROLL A.R 


E4A9 CD6EE2 




CALL 


CMPOF1 




E4AC C3F4E1 


A49A: 


JMP 


CRSRET 





CP/M MACRO ASSBM 2.0 #063 ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 



E4AF CD4AE9 
B4B2 C3P7E1 



, 1 

I J - CLEAR TO END OF ACTIVE REGION 



clrend: call 

A45A: JMP 



CLTOND 
EXIT2 



K - CLEAR TO END OF LINE 



E4B5 CD42E8 


clreln; CALL 


LFCLR2 




JR 


A49A 


E4B8+18F2 


DB 


18H,A49A-$-l 



I L - INSERT LINE I 
I 1 



E4BA 3A07FA 


INSLIN: 


LDA 


CHRADR 




E4BD 47 




MOV 


B,A 




E4BE 3A04FA 




LDA 


BOTACT 




E4C1 90 




SUB 


B ;IF AT 


BOTTOM 






JRZ 


A4C1 ; THEN 


CLEAR LINE & EXIT 


E4C2+2805 




DB 


28H,A4C1-S-1 




E4C4 CDF6E7 




CALL 
JR 


SCRDN1 ; ELSE 
EXXIT2 


INSERT BLANK LINE 


E4C7+181D 




DB 


18H,EXXIT2-S-1 




E4C9 CD1DE8 


A4C1: 


CALL 
JR 


LFCLR1 
EXXIT2 




E4CC+1818 




DB 


18H,EXX1T2-S-1 





I M - DELETE LINE 
, ,-| 



E4CE 3A07FA 


DELLIN: 


LDA 


CHRADR 


E4D1 47 




MOV 


B,A 


E4D2 3A04FA 




LDA 


BOTACT 


E4D5 90 




SUB 


B ;IF AT TOP 






JRZ 


A4C1 ; THEN CLEAR LINE AND EXIT 


E4D6+28F1 




DB 


28H,A4C1-S-1 


E4D8 68 




MOV 


L,B ; ELSE SCROLL REGION 


E4D9 47 




MOV 


B,A ; UP & CLEAR BOTTOM LINE 


E4DA CDCFE7 




CALL 


SCRUP1 






JR 


EXXIT2 


E4DD+1807 




DB 


18H,EXXIT2-$-l 




;l N - 


SET TABS 


I 

! 1 
1 


E4DF 3E0A 


SETTAB: 


MVI 


A,0AH 






JR 


ASIA 


B4E1+180D 




DB 


18H.A51A-S-1 



CP/M MACRO ASSBM 2.0 #064 ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 



E4E3 CD0FE9 
E4E6 C3F7E1 



E4EE 3E0C 
E4F0 C3F8E1 



E4F3 3E09 
E4F5+18F9 



E4F7 3E08 
E4F9+18F5 



E4FB 3E07 
E4FD+18F1 



I - CLEAR TABS I 



■I 



CLRTAB: CALL 
EXXIT2: JMP 



CLRTBS 
EXIT2 



I P - DELETE CHAR. 



E4E9 CD78E9 


DELLCR: CALL 


DELCHR 




JR 


EXXIT2 


E4EC+18F8 


DB 


18H,EXXIT2-$-l 



Q - INSERT CHAR. MODE ON 



INSCON: MVI A,0CH 
A51A: JMP EXIT3 



I R - INSERT CHAR. MODE OFF 



IS EXIT2 IN ESCTBL 



, , 

I S - SELECT CHAR. SIZE 



CHRSIZ: MVI A,9 

JR A51A 

DB 18H,A51A-S-1 



I T - SELECT CHAR. SET I 



CHRSET: MVI A,8 

JR ASIA 

DB 18H,A51A-S-1 



I U - SELECT ATTRIBUTES i 



SELATR: MVI A, 7 

JR ASIA 

DB 18H,A51A-S-1 



V - SELECT ALT. LEAD-IN ! 



CP/M MACRO ASSBM 2.0 #065 ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 



E4PP 3E0B 


seldin: mvi 


A,0BH 




JR 


A51A 


E501+18ED 


OB 


18H,A51A-S-1 



E50B CDBFB8 
E50E+18D6 



E510 CD10E9 
E513+18D1 



E515 CD29B9 
E518 CD6EE2 
E51B C3P4E1 



I 1 

! W - LOAD TONE TABLE (15 BYTES) & EXECUTE 



E503 3E16 


DSPSND: HVI 


A,16H 




JR 


ASIA 


E505+18E9 


OB 


18H,A51A-S-1 



I X - SET ACTIVE REGION I 



E507 3E05 


setacr: mvi 


A,S 




JR 


A51A 


B509+18E5 


OB 


18H,A51A-$-l 



1 Y - DIRECT CURSOR MOVE I 



IS DRCTMV IN ESCTBL 



i Z ~ RESET PARAMETERS 



respar: call rstpar 

JR EXXIT2 

DB 18H,EXXIT2-$-l 



i c - save parameters i 
savvpr: call savpar 

JR EXXIT2 

DB 18H,EXXIT2-S-1 



\ - CLEAR SCREEN & RESET PARAMETERS 



IS CLSCRN IN ESCTBL 

I ] - RECALL PARAMETERS i 

RCLPAR; CALL RSTORP ;RESTORE PARAMETERS 
CALL CMPOF1 ; MOVE CURSOR TO 
JMP CRSRET ; PREVIOUS POSITION 
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E522 AF 
E523 3201FA 
E526 C3F7E1 



- WRAP OFF I 



■I 



E51E 3EFF 


WRPOFF: MVI 


A,0FFH 




JR 


WRPGEN 


E520+1801 


DB 


18H,WRPGEN-$-l 



- WRAP ON I 



WRPON: XRA A 
WRPGEN: STA WRPFLG 
A5F0: JMP EXIT2 



WSFLAG SET (ON) I 



E529 3EFF 


SETWS: 


MVI 


A,0FFH 






JR 


A512 


E52B+1801 




DB 


18H,A512-$-l 



I A - WSFLAG RESET (OFF) I 
, , 



E52D AF 


clrws: 


XRA 


A 


E52E 3280DA 


A512: 


STA 


WSFLAG 






JR 


A5F0 


E531+18F3 




DB 


18H,A5F0-S-1 



I B - HAKE SOUND FROM TABLE 



IS XXXXXXX IN TABLE 



■I 



f C - CURSOR OFF I 



ES33 2651 


OFFCUR: 


MVI 


H,81 


B535 CD57B2 




CALL 


OUTCUR 


E538 3EFF 




MVI 


A,0FFH 


E53A 3202FA 




STA 


CURCTL 






JR 


A5F0 


E53D+18E7 




DB 


18H,A5F0-$-l 



I D - CURSOR ON I 
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B53F AF OH 


ICUR: XRA 


A 


B540 3202FA 


STA 


CURCTL 


E543 C3F4B1 


JMP 


CRSRET 
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I MULTI - CHAR. SEQUENCE HANDLERS 



— t 



I 02H - DIRECT CURSOR POSITION LINE NUMBER 
I . -_ | 



E546 79 


LINCHK: 


MOV 


A,C 


E547 D620 




SUI 


20H 


E549 47 




MOV 


B,A 


E54A 3A04FA 




LDA 


BOTACT 


E54D B6 


. . , 


CMP 


B 


E54B FA6BE5 




JM 


LNCKJ3 


E551 3A03FA 




LDA 


TOPACT 


E554 B8 




CMP 


B 






JRZ 


LNCKJl 


E555+2803 




DB 


28H,LNCKJl-$-l 


E557 F26BB5 




JP 


LNCKJ3 


E55A 78 


LNCKJl: 


MOV 


A,B 


B55B 3207FA 




STA 


CHRADR 


E55E 6F 




MOV 


L,A 


E55F CD71E2 




CALL 


CMPOFF 


E562 7D 




MOV 


A,L 


E563 3229FA 


LNCKJ2: 


STA 


TEMLIN 


B566 3B03 




MVI 


A, 3 


E568 C3F8E1 




JMP 


EXIT3 


E56B 3BFF 


LNCKJ3: 


MVI 


A,0FFH 






JR 


LNCKJ2 


E56D+18F4 




DB 


18H,LNCKJ2-$-l 



, , 

I 03H - DIRECT CURSOR POSITION COLUMN NUMBER i 
, 1 



E56F 3A29FA 


colchk: LDA 


TEMLIN 


E572 FBFF 


CPI 


OFFH 


E574 CAF7E1 


JZ 


EXIT2 


E577 6F 


MOV 


L,A 


E578 79 


MOV 


A,C 


E579 D620 


SUI 


20H 


E57B 67 


MOV 


H,A 


E57C C3F1E1 


JMP 


CUSTH+1 



I 04H - NOT USED 



IS EXIT2 IN TABLE 



I 1 

I 05H - TOP OF ACTIVE REGION I 



CP/M MACRO ASSBM 2.0 #069 ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 



B57F 79 


., 

• 

TACTCK: 


MOV 


A,C 


E580 D620 




SUI 


20H 


B562 3203FA 




STA 


TOPACT 


E585 3E06 




MVI 


A,6 


B587 C3F8B1 




JMP 


BXIT3 



I 1 

I 06H - BOTTOM OF ACTIVE REGION I 
j 1 



B58A 79 


bactck: MOV 


A,C 




B56B 0620 


SUI 


20H 




B580 2103FA 


LXI 


H,TQPACT 




B590 46 


MOV 


B,M 


; GET TOPACT 


B591 23 


INX 


H 




B592 77 


MOV 


M,A 


; STORE BOTACT 


B593 90 


SUB 


B 


; CALCULATE MAGACT 


B594 23 


INX 


H 




E595 77 


MOV 


M,A 


; STORE MAGACT 


B596 C38DE4 


JMP 


HOMCUR 





I 07H - SCREEN ATTRIBUTE I 
I , 1 



B599 79 


ATTCHK: MOV 


A,C 


E59A C620 


AOI 


20H 


BS9C B638 


ANI 


38H 


B59B 07 


RLC 




B59F 57 


MOV 


D,A 


B5A0 79 


MOV 


A,C 


85A1 E607 


ANI 


7H 


E5A3 B2 


ORA 


D 


E5A4 07 


RLC 




E5A5 57 


MOV 


D,A 


E5A6 2100FA 


LXI 


H,CURATT 


E5A9 7E 


MOV 


A,H 


E5AA E611 


ANI 


11H 


E5AC B2 


ORA 





B5AD 77 


MOV 


M,A 




JR 


EXXT2 


E5AE+1806 


DB 


18H,EXXT2-$-l 



I 08H - ALTERNATE CHAR. SET I 



E5B0 


79 


ALTCHK: MOV 


AX 


E5B1 


E607 


ANI 


7H 


E5B3 


32FFF9 


STA 


CURCHR 


E5B6 


C3F7B1 


EXXT2: JMP 


EXIT2 



•I 09H - SELECT CHAR. SIZE 
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E5B9 3A00PA 


• 

SIZCHK: 


LDA 


CURATT 


E5BC E6EF 




ANI 


OEFH 


E5BE 47 




MOV 


B,A 


E5BF 79 




MOV 


A,C 


E5C0 D630 




SUI 


30H 






JRZ 


SZCKJI 


E5C2+2S02 




DB 


28H,SZCKJ1-S-1 


E5C4 3E10 




MVI 


A,10H 


E5C6 BO 


szckji: 


ORA 


B 


E5C7 3200FA 




STA 


CURATT 






JR 


EXXT2 


E5CA+18EA 




DB 


18H,EXXT2-S-1 



I OAH - SET fABS 



E5CC 79 


tabchk: 


MOV 


A,C 


E5CD FE1B 




CPI 


ESC 






JRZ 


EXXT2 


E5CF+28E5 




DB 


28H,EXXT2-S-1 


E5D1 D620 




SUI 


20H 


E5D3 FAF7E1 




JM 


EXIT2 


E506 FE50 




CPI 


50H 






JRNZ 


TBJO 


E5D8+2006 




DB 


20H,TBJ0-$-l 


E5DA CD0FB9 




CALL 


CLRTBS 


E5DO C3FBE1 




JMP 


DSPRET 


E5E0 F2F7E1 


tbjo: 


JP 


EXIT2 


E5E3 47 




MOV 


B,A 


E5E4 3A09FA 




LDA 


LASTAB 


E5E7 B8 




CMP 


B 


E5E8 78 




MOV 


A,B 






JRNC 


TBOK 


E5E9+3003 




DB 


30H,TBOK-$-I 


E5EB 3209FA 




STA 


LASTAB 


E5EB E607 


TBOK: 


ANI 


7H 


E5F0 3C 




INR 


A 


E5F1 47 




MOV 


B,A 


E5F2 3E80 




MVI 


A,80H 






JR 


TBJl 


E5F4+1802 




DB 


18H,TBJl-$-l 




TBJ2: 


SRLR 


A 


E5F6+CB3F 




DB 


OCBH, 38H «• A 




TBJl: 


DJNZ 


TBJ2 


B5F8+10FC 




DB 


10H,TBJ2-3-l 


E5FA 47 




MOV 


B,A 


E5FB 79 




MOV 


AX 


E5FC CDDFE8 




CALL 


GTEFAD 


B5FF 7E 




MOV 


A,M 


E600 BO 




ORA 


B 


E601 77 




MOV 


M,A 






JR 


SCHK1 


B602+182E 




DB 


18H,SCHKl-$-l 
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I OBH - ALTERNATE LEAD IN I 



E604 79 1 


ledchk: 


MOV 


A,C 


E605 3206PA 




STA 


LBADIN 






JR 


BXXT2 


B608+18AC 




OB 


18H,EXXT2-S-1 




;l OCH 


- INSERT MODE ON 1 


E60A 3A06PA J 


NSCHK: 


LDA 


LEADIN 


E600 B9 




CMP 


C 






JRNZ 


INCKJ2 


E60B+2005 




OB 


20H,INCKJ2-$-l 


B610 3E01 I 


NCKJl: 


MVI 


A,l 


E612 C3P8B1 




JMP 


EXIT3 


E615 3E1B 1 


NCKJ2: 


MVI 


A,ESC 


E617 B9 




CMP 


C 






JRZ 


INCKJ1 


E618+28F6 




OB 


28H,INCKJl-$-l 


B61A C5 




PUSH 


B 


E61B E5 




PUSH 


H 


E61C CD6AE9 




CALL 


INSCHR 


E61F El 




POP 


H 


E620 CI 




POP 


B 


E621 CD7DB2 




CALL 


CHKCHR 


B624 CD17B2 




CALL 


OUTCHR 


E627 7A 




MOV 


A,D 


E628 B7 




ORA 


A 






JRNZ 


SCHK1 


6629*2007 




DB 


20H,SCHK1-S-1 


E62B 7C 




MOV 


A,H 


E62C 3208FA 




STA 


CHRADR^l 


B62P CD57B2 




CALL 


OUTCUR 


E632 C3PBE1 S 


CHKl: 


JMP 


DSPRET 
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•I 



I ODH - GET MASK I 
I , 



E635 3AEAF9 


GRFCHK: 


LDA 


GRFCMD 


E638 FEOD 




CPI 


ODH 






JRNZ 


GRCKl ;MASKS FOR FILL 


E63A+200B 




DB 


20H,GRCKl-$-l 


B63C 79 




MOV 


A,C 


E63D 326AP8 




STA 


MASK 


E640 AF 




XRA 


A 


E641 32EAF9 




STA 


GRFCMO 


E644 C3FBE1 




JMP 


DSPRET 


E647 79 


GRCKl: 


MOV 


A,C 


E648 326FEA 




STA 


XMASK 


E64B C3F7E1 




JMP 


EXIT2 



I 1 

i OEH - GET X MSB 
I , 



E64E 79 


GRFCKl: 


MOV 


A,C ;X MSB'S 


E64F FE05 




CPI 


5 






JRC 


GRCK2 


E651+3803 




DB 


38H,GRCK2-$-l 


E653 32FDF9 




STA 


GRFERR 




GRCK2: 


BIT 


2,C 


E656+CB51 




DB 


0CBH,2«8*C*40H 


E658 3E01 




MVI 


A,l 






JRNZ 


GRCK3 


B65A+2001 




DB 


20H,GRCK3-$-l 


E65C AF 




XRA 


A 


E65D 32F3F9 


GRCK3: 


STA 


GRX+1 


E660 79 




MOV 


AX 


E661 OF 




RRC 




E662 OF 




RRC 




E663 B6C0 




ANI 


OCOH 


E665 32F2F9 




STA 


GRX 


E668 3E0F 




MVI 


A,0FH 


E66A C3F8B1 




JMP 


EXIT3 



•I 



I OFH - GET X LSB 



■I 



E66D 79 


GRFCK2: MOV 


A,C ;X Li 


E66E 21F2F9 


LXI 


H,GRX 


B671 B6 


ORA 


M 


E672 77 


MOV 


M,A 


E673 AF 


XRA 


A 


B674 2AF2F9 


LHLD 


GRX 


E677 114001 


LXI 


0,320 




DSBC 


D 


E67A+ED52 


DB 


0EDH,D«8+42H 
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JRC 


GRCK4 


E67C+3804 




DB 


38H,GRCK4-$-l 


E67E 2F 




CMA 




E67P 32FDF9 




STA 


GRFERR 


B682 3E10 


GRCK4S 


MVI 


A,10H 


E664 C3F8E1 




JMP 


EXIT3 



I 10H - GET Y 
I 



— I 

MSB 
— I 



E687 79 


GRFCK3: 


MOV 


A,C ;Y MS 


E688 FE04 




CPI 


4 






JRC 


GRCK5 


E68A+3803 




OB 


38H,GRCK5-S-1 


E68C 32FOF9 




STA 


GRFERR 


E68F OF 


GRCK5: 


RRC 




E690 OF 




RRC 




E691 E6C0 




ANI 


OCOH 


E693 32F6F9 




STA 


GRY 


E696 3BU 




MVI 


A,11H 


E698 C3F8B1 




JMP 


BXIT3 



•I 



11H - GET Y LSB I 



B69B 79 


GRFCK4: 


MOV 


AX ;Y LSB 


E69C 21F6F9 




LXI 


H,GRY 


E69F B6 




ORA 


M 


E6A0 77 




MOV 


M,A 


E6A1 FEFO 




CPI 


240 






JRNC 


GRBXT2 


E6A3+300F 




DB 


30H,GRBXT2-$-l 


E6A5 3AFDF9 




LDA 


GRFERR 


E6A6 B7 




ORA 


A 






JRNZ 


GREXT2 


E6A9+2009 




DB 


20H,GREXT2-S-1 


E6AB 3AEAF9 




LDA 


GRFCMD 


E6AE B7 




ORA 


A 






JRNZ 


GRCK6 


E6AF+2006 




DB 


20H,GRCK6-$-l 


E6B1 CDA1EB 




CALL 


PPLOT 


E6B4 C3F7E1 


GREXT2: 


JMP 


EXIT2 


E6B7 3D 


GRCK6: 


DCR 


A 






JRNZ 


GRCK7 


B6B8+2005 




DB 


20H,GRCK7-S-1 


E6BA CDI6EC 




CALL 


VPLOT 






JR 


GREXT2 


E6BD+18F5 




DB 


18H,GREXT2-S-1 


E6BF 3D 


GRCK7: 


DCR 


A 






JRNZ 


GRDOIT 


B6C0+2005 




DB 


20H,GRDOIT-S-1 


E6C2 3E04 




MVI 


A, 4 


E6C4 C3AEE3 


GRCK8J 


JMP 


PVCT1 


E6C7 3D 


GRDOIT: 


DCR 


A 
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JRNZ 


GROK 


E6C8+2004 




DB 


20H,GROK-S-1 


E6CA 3E05 




MVI 


A,5 






JR 


GRCK8 


E6CC+18F6 




DB 


18H,GRCK8-$-l 


E6CE 3D 


grok: 


DCR 


A 






JRNZ 


GRCK9 


E6CF+2005 




DB 


20H,GRCK9-$-l 


E6D1 CDE3E9 




CALL 


FILL 






JR 


GREXT2 


E6D4+18DE 




DB 


18H,GREXT2-$-l 


E6D6 COEBEB 


GRCK9: 


CALL 


DRWBLK 






JR 


GREXT2 


E6D9+18D9 




DB 


18H,GREXT2-S-1 
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;! 12H 


~ READ 


CMOS RAM 1 


E60B 41 


GRFCK5: 


NOV 


B,C 


E6DC CD63F2 




CALL 


RO5101 


E6DF FB 




EI 




E6E0 E60F 




ANI 


OFH 


E6E2 F630 




ORI 


30H 


E6E4 21B0FB 




LXI 


H,HRS10 


E6E7 77 




HOV 


M,A 


E6S6 010100 




LXI 


B,l 


E6EB C081F5 




CALL 


PUSHKY 






JR 


BXXX2 


E6EE+1812 




DB 


18H,EXXX2-S-1 



13H - GET ADDRESS FOR CMOS WRITE I 



B6F0 79 


GRFCK6." MOV 


AX 


E6FI 32ADFB 


STA 


MINS 


E6F4 3E14 


MVI 


A,14H 


E6F6 C3F8B1 


JMP 


EXIT3 



i 14H - WRITE CMOS RAM I 



E6F9 3AADFB 


GRFCK7: LDA 


MINS 


E6FC 47 


MOV 


B,A 


E6FD 79 


MOV 


AX 


E6FE CD3AF2 


CALL 


WR5101 


E701 FB 


EI 




E702 C3F7B1 


EXXX2: JMP 


EXIT2 



J_-„ J 

I 15H - FILL TONE TABLE I 



E705 2142FA 


GETSND: 


LXI 


H,SNDCNT 


E708 35 




DCR 


M 






JRZ 


DOSND 


E709+280B 




DB 


28H,DOSND-S-l 


E70B 2A40FA 




LHLD 


SNDADR 


E70E 71 


GTSNDl: 


MOV 


M,C 


E70F 23 




INX 


H 


E710 224 OFA 




SHLD 


SNDADR 


E713 C3FBE1 




JMP 


DSPRET 


E716 2154FA 


DOSNDS 


LXI 


H,SNDTBL 


E719 CD78E1 




CALL 


SOUND 


E71C FB 




EI 
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E71D+18E3 



JR EXXX2 

DB 18H,EXXX2-$-l 

I 1 

I 16H - GET 1ST BYTE OF TOME TABLE I 



E71F 3E0E 


SETSND: 


MVI 


A, 14 


E721 3242FA 




STA 


SNDCNT 


E724 3E15 




MVI 


A,15H 


E726 32FAF9 




STA 


DSPCYC 


E729 2154FA 




LXI 


H,SNDTBL 






JR 


GTSND1 


E72C+18E0 




DB 


18H,GTSND1-S-1 
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DISPLAY SUBROUTINES 



E72E 0603 


READTM 


: MVI 


B,3 


E730 CD63F2 




CALL 


RD5101 


E733 PEOE 




CPI 


OEH 






JRNZ 


RDTM2 


E735+2011 




OB 


20H,RDTM2-S-1 


E737 060A 




MVI 


B,10 


E739 C5 


RDTMl." 


PUSH 


B 


E73A 010107 


tchg: 


LXI 


B,701H 


E730 21B0PB 




LXI 


HJIRS10 


E740 CDAEE7 




CALL 


GETCLK 


E743 CI 




POP 


B 






JRNZ 


RDTM3 


£744*2005 




DB 


20H,RDTM3-$-l 






DJNZ 


RDTMl 


E746+10F1 




DB 


10H,RDTM1-S-1 


E748 3E3P 


RDTM2: 


MVI 


A/?' 


E74A C9 




RET 




E74B 3AB0PB 


RDTM3: 


LDA 


HRS10 


E74E E6F3 




ANI 


0F3H 


E750 32B0FB 




STA 


HRS10 


E753 C9 




RET 




E73B * 


TIMCHG 


EQU 


TCHG*1 


E754 0604 


REAOAT: 


MVI 


B,4 


B756 CD63F2 




CALL 


RD5101 


E759 FE05 




CPI 


5 


, 




JRNZ 


RDDT3 


E75B+2031 




DB 


20H,RDDT3-S-1 


E75D 21B0FB 




LXI 


H,HRS10 


E760 3A4DPA 




LDA 


OKIFLG 


E763 B7 




ORA 


A 


E764 F5 




PUSH 


PSW 






JRNZ 


RDDTl 


E765+2016 




DB 


20H,RDDT1-S-1 


E767 010B0D 




LXI 


B,0D0BH 


E76A EB 




XCHG 




E76B 2163F2 




LXI 


H,RD5101 


E76E 22B1E7 




SHLD 


GETCLK+3 


E771 EB 




XCHG 




E772 CDAEE7 




CALL 


GETCLK 


E775 EB 




XCHG 




E776 2175F2 




LXI 


H,R58174 


E779 22B1E7 




SHLD 


GETCLK* 3 


E77C SB 




XCHG 




E77D 060A 


RDDTl: 


MVI 


B,10 


E77F C5 


RDDT2: 


PUSH 


B 


E780 E5 




PUSH 


H 


E781 01070C 


DCHGS 


LXI 


B,0C07H 


£784 CDAEE7 




CALL 


GETCLK 
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E787 El 




POP 


H 


E788 CI 




POP 


B 






JRNZ 


RDDT4 


E789+2006 




DB 


20H,RDDT4-S-1 






DJNZ 


RDDT2 


E78B+10F2 




DB 


10H,RDDT2-S-1 


E78D CI 




POP 


B 


E78E 3E3P 


RDDT3: 


MVI 


A,'?' 


E790 C9 




RET 




E791 Fl 


RDDT4: 


POP 


PSW 


E792 F5 




PUSH 


PSW 






JRNZ 


RDDT5 


E793+200C 




DB 


20H,RDDT5-S-1 


E795 3AACFB 




LDA 


SECS10 


E798 2AAAFB 




LHLD 


OKIBYT 


E79B 22ABFB 




SHLD 


SCNDS 


E79E 32AAFB 




STA 


OKIBYT 


E7A1 21ACFB 


RDDT5: 


LXI 


H,SECS10 


E7A4 7E 




MOV 


A,M 


E7A5 E6F3 




ANI 


0F3H 


E7A7 77 




MOV 


M,A 


E7A8 Fl 




POP 


PSW . 


E7A9 C8 




RZ 




E7AA 2B 




DCX 


H 


E7AB 2B 




DCX 


H 


E7AC 34 




INR 


M 


E7AD C9 




RET 




E782 * 


DATCHG 


EQU 


DCHG+1 


E7AE E5 


GETCLK: 


PUSH 


H 


E7AF C5 




PUSH 


B 


E7B0 CD75F2 




CALL 


R58174 


E7B3 FB 




EI 




E7B4 E60F 




ANI 


OFH 


E7B6 FEOF 




CPI 


OFH 


E7B8 CI 




POP 


B 


E7B9 El 




POP 


H 


E7BA C8 




RZ 




E7BB F630 




ORI 


30H 


E7BD 77 




MOV 


MM 


E7BE 2B 




DCX 


H 


E7BF 05 




OCR 


B 


E7C0 78 




MOV 


A3 


E7C1 B9 




CMP 


C 






JRNZ 


GETCLK 


E7C2+20EA 




DB 


20H,GETCLK-S-1 


E7C4 C602 




AD1 


2 


E7C6 C9 




RET 






; SCROLL ACTIVE 


REGION UP 


E7C7 47 


SCRLUP: 


MOV 


B,A 


B7C8 B7 




ORA 


A 






JRZ 


LFCLRO 


E7C9+284F 




DB 


28H,LFCLR0-$-l 


E7CB 3A03FA 




LDA 


TOPACT 


E7CE 6F 




MOV 


L,A 
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B7CF CD71E2 


SCRUPl: 


CALL 


CMPOFF 


E7D2 50 




MOV 


E,L 


E7D3 7D 




MOV 


A,L 


E7D4 3C 




INR 


A 


E7D5 FBI 8 




CPI 


24 






JRNZ 


SCRUP2 


E7D7+2001 




OB 


20H,SCRUP2-S-1 


E7D9 AF 




XRA 


A 


E7DA 57 


SCRUP2; 


MOV 


D,A 


E7DB 05 


SCRUP3: 


PUSH 





E7DC C5 




PUSH 


B 


B7DD CD65B8 




CALL 


MOVLIN 


E7E0 CI 




POP 


B 


E7E1 01 




POP 


D 


B7E2 5A 




MOV 


E,D 


E7E3 14 




INR 


D 


E7E4 3E18 




MVI 


A,24 


E7E6 BA 




CMP 





'$&£■ 




JRNZ 


SCRUP4 


E7E7+2002 




DB 


20H,SCRUP4-*-l 


E7E9 1600 




MVI 


0,0 




SCR0P4: 


OJNZ 


SCRUP3 


E7EB+10EE 




DB 


10H,SCRUP3-$-l 


E7E0 6B 




MOV 


L,E 






JR 


LFCLR1 


E7EE+182D 




OB 


18H,LFCLR1-S-1 



SCROLL ACTIVE REGION DOWN 



E7F0 3A05FA 
B7F3 B7 

E7P4+2824 
E7F6 47 
E7F7 3A04FA 
E7FA 6F 
E7FB CD71B2 
E7FE 5D 
E7FF 7D 
ESOO B7 

E801+2002 
E803 3E18 
E805 3D 
E806 57 
B807 D5 
B808 C5 
E809 CD65E8 
E80C CI 
E80D Dl 
E80E 7A 
E80F 5A 
E810 B7 

E81 1+2002 
E813 3E18 



SCRLDN: LDA 
ORA 
JRZ 
DB 

SCRDNl: MOV 
LDA 
MOV 
CALL 
MOV 
MOV 
ORA 
JRNZ 
DB 
MVI 

SCRDN2: DCR 
MOV 

SCRDN3: PUSH 
PUSH 
CALL 
POP 
POP 
MOV 
MOV 
ORA 
JRNZ 
DB 
MVI 



MAGACT 
A 

LFCLRO 

28H,LFCLR0-S-1 
B,A 

BOTACT 
L,A 

CMPOFF 
E,L 
A,L 
A 

SCRDN2 

20H,SCRDN2-S-1 
A, 24 
A 

D,A 
D 
B 

MOVLIN 
B 
D 

A,D 
E,D 
A 

SCRDN4 

20H,SCRDN4-S-1 
A,24 
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E815 3D 


SCRDN4: 


DCR 


A 


E816 57 




MOV 


D,A 






DJNZ 


SCRDN3 


E817+10EE 




DB 


10H,SCRDN3-S-1 


E819 6B 




MOV 


L,E 



I CLEAR LINE L I 



E81A CD6EE2 


LFCLRO: 


CALL 


CMPOF1 


E81D 2600 


LFCLRl: 


MVI 


H,0 


E81F 7D 




MOV 


A,L 


E820 P6C0 




ORI 


OCOH 


E822 6F 




MOV 


L,A 


E823 112000 




LXI 


D,SPC 


E826 01EE4F 


• 


LXI 


B,79«256+SDSPY 


E829 C5 




PUSH 


B 






OUTP 


L 


B82A+ED69 




DB 


0EDH,L«8+41H 


E82C OEFE 




MVI 


CDDSPY 




LFCLl: 


OUTP 


D 


E82B+ED51 




DB 


0EDH,D«6+41H 






DJNZ 


LFCLl 


E830+10FC 




DB 


10H,LFCLl-$-l 






OUTP 


D 


E832+ED51 




DB 


0BDH,D«8*41H 


E834 CI 




POP 


B 






SETB 


5,L 


E835+CBED 




DB 


0CBH,5«8*L*0C0H 






OUTP 


L 


E837+ED69 




DB 


0EDH,L«8*41H 


E839 OEFE 




MVI 


CDDSPY 




LFCL2: 


OUTP 


E 


E83B+BD59 




DB 


0EDH,E»8*41H 






DJNZ 


LFCL2 


E83D+10FC 




DB 


10H,LFCL2-$-l 






OUTP 


E 


E83F+ED59 




DB 


0EDH,E«8+41H 


E841 C9 




RET 









CLEAR 


LINE L FROM POSITION H TO B 


E842 7D 


LFCLR2: 


MOV 


A,L 


E843 F6C0 




ORI 


OCOH 


E645 6F 




MOV 


L,A 


E646 112000 




LXI 


D,SPC 


E849 44 




MOV 


B,H 


E64A 3E50 




MVI 


A,80 


E84C OEEE 


LFCL3: 


MVI 


CSDSPY 


E84E B8 




CMP 


B 


E84F C8 




RZ 








OUTP 


L ;CLEAR ATTRIBUTE 


E850+ED69 




DB 


0EDH,L«8*41H 


E852 OEFE 




MVI 


CDDSPY 






OUTP 


D 



CP/M MACRO ASSBM 2.0 



#081 
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B854+BD51 
E856 OEBE 

E858+CBED 

E85A+ED69 
E85C OEFE 

B85B+ED59 

E860+CBAD 
E862 04 

B863*18E7 



OB 


0EDH,D»8+41H 


MVI 


CSDSPY 


SETB 


5,L 


DB 


OCBH,5»8*L*0C0H 


OUTP 


L ;CLEAR CHARACTER 


OB 


0EDH,L«8*4*1H 


MVI 


CDDSPY 


OUTP 


E 


OB 


0EDH,E«8*41H 


RES 


5,L 


DB 


0CBH,5«8*L*80H 


INR 


B 


JR 


LFCL3 


DB 


18H,LFCL3-S-1 



MOVE LINE D TO LINE E 



E865 7A 


movlin: MOV 


A,D ;SET UP 


E866 F6C0 


ORI 


OCOH 


E868 57 


MOV 


D,A 


E869 7B 


MOV 


A,E 


E86A F6C0 


ORI 


OCOH 


E86C 5F 


MOV 


B,A 


E86D 064F 


MVI 


B,79 


E86F E5 


PUSH 


H 


E870 CS 


PUSH 


B 


E871 CD7AE8 


CALL 


MOVLNl ;MOVE ATTRIBUTES 


E874 CI 


POP 


B 


E875 El 


POP 


H 




SETB 


5,D ;MOVE CHARACTERS 


E876+CBEA 


DB 


0CBH,5»8*D*0C0H 




SETB 


5,E 


E678+CBEB 


DB 


0CBH,5«8+E+0C0H 


E87A.0EEE 


MOVLNl: MVI 


CSDSPY 




OUTP 


D 


E87C+ED51 


DB 


0EDH,D»8*41H 


E87E 2193F9 


LXI 


H,DSPBUF 


E881 E5 


PUSH 


H 


E882 C5 


PUSH 


B 


E883 OEFE 


MVI 
INIR 


CDDSPY 


E865+EDB2 


DB 
INI 


0EDH,0B2H 


E887+EDA2 


DB 


0EDH,0A2H 


E889 CI 


POP 


B 


E88A 04 


INR 


B 


E88B El 


POP 


H 




OUTP 


E 


E88C+ED59 


DB 


0EDH,E»8+41H 


E88E OEFE 


MVI 
OUTIR 


CDDSPY 


E890+EDB3 


DB 


0EDH,0B3H 


E892 C9 


RET 





j I MOVE CURSOR TO NEXT TAB I 
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E893 3A09FA 


movtab: loa 


LASTAB 


E896 BC 


CMP 


H 


E897 FAF7E1 


JM 


EXIT2 




JRZ 


TBDON 


E89A+2840 


OB 


28H,TBDON-0-l 


E89C E5 


PUSH 


H 


E89D 44 


MOV 


B,H 


E89E 7C 


MOV 


A,H 


E89F E678 


ANI 


78H 


E8A1 CDE1E8 


CALL 


GTEFAD+2 


E8A4 78 


MOV 


A,B 


E8A5 E607 


ANI 


7H 


E8A7 47 


MOV 


B,A 


E8A8 FE07 


CPI 


7 




JRZ 


MOVTB3 


E6AA+2813 


DB 


28H,MOVTB3 r $-l 


ESAC C6F8 


ADI 


0F8H 


E8AE 2F 


CMA 




E8AF 57 


MOV 


D,A 


E8B0 7E 


MOV 


A,M 


E8B1 04 


INR 


B 




MOVTBl: RLCR 


A 


ESB2+CB07 


DB 


OCBH, OOH + A 




OJNZ 


MOVTBl 


E8B4+10FC 


DB 


10H,MOVTB1-S-1 


E8B6 42 


MOV 


B,D 




MOVTB2: BIT 


7, A 


E8B7*CB7F 


DB 


0CBH,7»8+A*40H 




JRNZ 


TBIT 


E8B9+2010 


DB 


20H,TBIT-$-l 




RLCR 


A 


E8BB+CB07 


DB 


OCBH, OOH ♦ A 




DJNZ 


MOVTB2 


E8BD+10F8 


DB 


10H,MOVTB2-S-1 


E8BF 3E09 


MOVTB3: MVI 


A,9 


E8C1 BB 


CMP 


E 




JRZ 


TBOVR 


E8C2*2817 


DB 


28H/TBOVR-S-1 


E8C4 1C 


INR 


E 


E8C5 23 


INX 


H 


E8C6 7E 


MOV 


A,M 


E8C7 0608 


MVI 


B,8 




JR 


MOVTB2 


E8C9+18EC 


DB 


18H,MOVTB2~S-l 


E8CB 78 


TBIT: MOV 


A3 


E8CC C6F7 


ADI 


0F7H 


E8CE 2F 


CMA 




E8CF 47 


MOV 


B,A 


B8D0 7B 


MOV 


A,E 


E8D1 A7 


ANA 


A 


E8D2 17 


RAL 




B8D3 17 


RAL 




E8D4 17 


RAL 




E8D5 BO 


ORA 


B 


E8D6 El 


POP 


H 



CP/M MACRO ASSBM 2.0 



#063 
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E8D7 67 




MOV 


H,A 


E8D8 C3F0B1 




JMP 


CUSTH 


E80B El 


TBOVRS 


POP 


H 


E8DC C3F7E1 


tbdon: 


JMP 


BXIT2 


E80P D620 


GTEFAD 


: SUI 


20H 






SRLR 


A 


E8E1+CB3F 




DB 


OCBH, 38H * A 






SRLR 


A 


E6E3+CB3F 




DB 


OCBH, 38H ♦ A 






SRLR 


A 


E8E5+CB3F 




DB 


OCBH, 38H ♦ A 


E8E7 5F 




MOV 


E,A 


E8E8 1600 




MVI 


D,0 


E8EA 210AFA 




LXI 


H,TABS 


E8ED 19 




DAD 


D 


E6EE C9 




RET 








RESET 


PARAMETERS 


E8EF 21FFF9 


rstpar: 


LXI 


H,CURCHR 


E8F2 AF 




XRA 


A 


E8F3 0605 




MVI 


B,5 


E8F5 77 


RSTL1S 


MOV 


M,A 


E8F6 23 




INX 


H 






DJNZ 


RSTL1 


E8P7+10FC 




DB 


10H,RSTL1-S-1 


E8F9 3E17 




MVI 


A,23 


B8FB 3204FA 




STA 


BOTACT 


E8FE 3205FA 




STA 


MAGACT 


E901 3E1B 




MVI 


A,ESC 


E903 3206FA 




STA 


LEADIN 






RESET 


OR CLEAR TABS 


E906 3E4F 


RSTABS! 


MVI 


A,4FH 


E908 3209FA 




STA 


LASTAB 


E90B 3E01 




MVI 


A,l 






JR 


DOTABS 


E90D+1804 




DB 


18H,DOTABS-S-l 


E90F AF 


CLRTBS: 


XRA 


A 


E910 3209FA 




STA 


LASTAB 


E913 210AFA 


DOTABS: 


LXI 


H,TABS 


E916 060A 




MVI 


B,10 


E918 77 


DOTBJl: 


MOV 


M,A 


E919 23 




INX 


H 






DJNZ 


DOTPJ1 


E91A+10FC 




DB 


10H,DOTBJ1-S-1 


E91C C9 




RET 


x 






SAVE SCREEN PARAMETERS 


E91D 21FFF9 


SAVPAR. 8 


LXI 


HXURCHR 


E920 1114FA 




LXI 


D,TEMPAR 



CP/M MACRO ASSEM 2.0 

E923 011500 

E926+EDB0 
E928 C9 



E929 2114FA 
E92C 11FFF9 
E92F 011500 

E932+EDB0 
E934 C9 



E935 
E938 
E939 
E93C 
E93E 
E940 
E942 
E944 
E947 



CDEFE8 

AF 

32A40A 

3EA6 

D3EE 

3E17 

D3FE 

210000 

C351E3 



E94A CD42E8 
E94D 3A07FA 
E950 47 
E951 3A04FA 
E954 90 

E955*2812 
E957 47 
E958 7D 
E959 E61F 
E95B 3C 
E95C FE18 

E95E+2001 
E960 AF 
E961 6F 
E962 C5 
E963 CD1DE8 
E966 CI 

E967+10EF 
E969 C9 



E96A E5 
E96B 2194F9 
E96E 22E7F9 



#084 

LXI 
LDIR 
OB 
RET 



ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 

B,21 

0EDH,0B0H 



RESTORE SCREEN PARAMETERS 



RSTORP: LXI 
LXI 
LXI 
LOIR 
DB 
RET 



H,TEMPAR 
D,CURCHR 
B,21 

0EDH,0B0H 



CLEAR SCREEN & RESET PARAMETERS 



CLSCRN: CALL 
XRA 
STA 
MVI 
OUT 
MVI 
OUT 
LXI 
JMP 



RSTPAR 

A 

LINOFS 
A,0A6H 

SDSPY 
A,23 

DDSPY 
H,0 

CTRLZ 



CLEAR TO ENO OF ACTIVE REGION 



CLNDl: 



CLTOND: CALL 
LOA 
MOV 
LDA 
SUB 
JRZ 
DB 
MOV 
MOV 
ANI 
INR 
CPI 
JRN2 
DB 
XRA 
MOV 
PUSH 
CALL 
POP 
DJN2 
DB 
RET 



CLND2: 



LFCLR2 
CHRADR 
B,A 

BOTACT 
B 

CLND3 

28H,CLND3-S-1 
B,A 
AX 
1FH 
A 

24 

CLND2 

20H,CLND2-$-l 
A 

L,A 
B 

LFCLR1 
B 

CLNDl 
10H,CLNDl-$-l 



CLND3: 



INSERT OR DELETE CHAR. 



INSCHR: PUSH 
LXI 
SHLD 



H 

H,DSPBUF*1 

MOVBEG 



;SET UP FOR INSERT 



CP/M MACRO ASSBM 2.0 #085 ATTACHE BIOS & BOOT; COPYRIGHT 1961, OTRONA CORP. 



E971 3E23 




MVI 


A,23H 


;INX H 




E973 32A1E9 




STA 
JR 


MODX 
INSDEL 






E976*180C 




DB 


18H,INSDEL-S-1 






E978 E5 


DELCHR: 


PUSH 


H 


;SET UP FOR 


DELETE 


E979 2192F9 




LXI 


H,DSPBFL+1 






E97C 22E7F9 




SHLD 


MOVBEG 






E97F 3E2B 




MVI 


A,2BH 


.;DCX H 




E981 32A1E9 




STA 


MODX 






E984 AF 


INSDEL: 


XRA 


A 






E985 COBDE9 . 




CALL 


FILBFF 


; INSERT OR 


DELETE 


E988 El 




POP 


H 






E989 E5 




PUSH 


H 






E98A 70 




MOV 


A,L 






E98B F6C0 




ORI 


OCOH 






E980 6F 




MOV 


L,A 






E98E E5 




PUSH 


H 






E98F CDC7E9 




CALL 


INPLIN 






E992 El 




POP 


H 






E993 7D 




MOV 


A,L 






E994 5C 




MOV 


E,H 






E99S D3EE 




OUT 


SDSPY 






E997 2AE7F9 




LHLD 


MOVBEG 






E99A 3A00FA 




LDA 
BIT 


CURATT 
4, A 






E99D+CB67 




DB 
JRZ 


0CBH,4»8*A*4OH 
INDELl 






E99F*2801 




DB 


28H,INDEL1-S-1 






E9A1 2B 


MODX: 


DCX 


H 


;MODIFIABLE 


CODE 


E9A2 E5 


INDELl: 


PUSH 


H 






E9A3 CDD8E9 




CALL 


OUTLIN 






E9A6 3E20 




MVI 


. A,2QH 






E9A8 COBOE9 




CALL 


FILBFF 






E9AB Dl 




POP 


D 






E9AC El 




POP 


H 






E9AD D5 




PUSH 


D 






E9AE 7D 




MOV 


A,L 






E9AF F6E0 




ORI 


OEOH 






E9B1 6F 




MOV 


L,A 






E9B2 E5 




PUSH 


H 






E9B3 CDC7E9 




CALL 


INPLIN 






E9B6 El 




POP 


H 






E9B7 7D 




MOV 


A,L 






E9B8 5C 




MOV 


E.H 






E9B9 El 




POP 


H 






E9BA C3D8E9 




JMP 


OUTLIN 






E9BO 2191F9 


FILBFF: 


LXI 


H,DSPBFL 


;FILL BUFFER 


WITH (A: 


E9C0 0654 




MVI 


B,84 






E9C2 77 


FLBFl: 


MOV 


M,A 






E9C3 23 




INX 
DJNZ 


H 
FLBFl 






E9C4+10FC 




DB 


1 OH, FLBFl -S-l 






E9C6 C9 




RET 
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E9C7 D3EE 


INPLIN: 


OUT 


SDSPY 


E9C9 7C 




MOV 


A,H 


E9CA 3D 




DCR 


A 


E9CB 064F 




MVI 


B,79 


E9CD OEFE 




MVI 


CDDSPY 


E9CF 2193F9 




LXI 


H,DSPBUF 




INPLN1: 


INI 




E9D2+EDA2 




DB 


0EDH,0A2H 


E904 B6 




CMP 


B 






JRNZ 


INPLN1 


E9D5+20FB 




DB 


20H,INPLN1-S-1 


E9D7 C9 




RET 




E9D8 0650 


OUTLIN: 


MVI 


B,80 


E9DA 7B 




MOV 


A,E 


E9DB OEFE 




MVI 


CDDSPY 




OUTLNl: 


OUTI 




E9DD+EDA3 




DB 


0EDH,0A3H 


E9DF B8 




CMP 


B 






JRNZ 


OUTLNl 


E9E0-20FB 




DB 


20H,OUTLNl-$-l 


E9E2 C9 




RET 





;INPUT PART OF LINE 
;TO PART OF BUFFER 



jOUTPUT PART OF BUFFER 
:TO PART OF LINE 



PAGE 



CP/M MACRO ASSBM 2.0 #067 ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 





jFILL COMMAND 






E9E3 = 


GRFSTR EQU 

* 


$ 




E9E3 3AF6F9 


• 

FILL: LDA 


GRY 


;SET UP GRY, GRYl 


E9E6 47 


MOV 


B,A 




E9E7 3AF8F9 


LDA 


GRYl 


;AND GRX, GRX 1 IN RIGHT ORDE 


E9EA 90 


SUB 


B 




E9EB DCDCEB 


CC 


SWPY 




E9EE AF 


XRA 


A 


;ZERO CARRY 


B9EF 2AF2F9 


LHLD 


GRX 






LDED 


GRX1 




E9F2+ED5B 


DB 


0EDH,5BH 


E9F4*F4F9 


DW 


GRX1 






DSBC 


D 




E9F6+ED52 


DB 


0EDH,D*6+42H 


E9F8 OCCDEB 


CC 


SWPX 




E9FB 3A6FEA 


LDA 


XMASK 


;CHECK MASKS 


E9FE 47 


MOV 


B,A 


;FOR BOTH - 


E9FF 216AF8 


LXI 


H,MASK 




EA02 7E 


MOV 


A,M 




EA03 BO 


ORA 


B 




EA04 78 


MOV 


A,B 




EA05 326EF8 


STA 


CLFLG 






JRNZ 


FILLl 




EA08+200B 


DB 


20H,FILL1-S-1 


EAOA 3EA2 


MVI 


A,0A2H 


;ANA D 


EAOC 32C4EA 


STA 


ORAD 


;PREPARE TO CLEAR BLOCK 


EAOF 3EFF 


MVI 


A,0FFH 


;MAKE MASKS 'FF' FOR NOW ANI 


EA11 77 


MOV 


M,A 


;AFTER FIXING EDGES 


EA12 326FEA 


, STA 


XMASK 




EA1S 23 


FILLl: INX 


H 




EA16 77 


MOV 


M,A 


;MASK2 


EA17 23 


INX 


H 




EA16 23 


INX 


H 




EA19 77 


MOV 


M,A 


;CURMSK 


EA1A AF 


XRA 


A 




EA1B 326FF8 


STA 


CYC 


;START CYCLE AT ZERO 


EA1E CD5CEB 


CALL 


LINDSP 


;CACULATE LINE 


EA21 2AF2F9 


LHLD 


GRX 




EA24 CDFAEA 


CALL 


PIX 


;PIX FINDS OUT WHICH BIT THE 


EA27 326CFA 


STA 


PIXBT2 


;PIXEL IS IN 


EA2A CD8AEB 


CALL 


XDDR 




EA20 326AFA 


STA 


STRX 


;START FOR X 


EA30 3AF8F9 


LDA 


GRYl 


;DO THE SAME FOR 


EA33 CD5FEB 


CALL 


LINDSP+ 


3 


EA36 2AF4F9 


LHLD 


GRX1 


;OTHER POINT 


EA39 CDFAEA 


CALL 


PIX 




EA3C OEOF 


MVI 


COFH 


;FIX TOP 


EA3E E5 


PUSH 


H 




EA3F CD50EB 


CALL 


FIXNIB 


;PIX MASK FOR TOP EDGE 


EA42 El 


POP 


H 




EA43 CD8AEB 


CALL 


XDDR 
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EA46 3269PA 




STA 


EA49 3AF6P9 


DOHSK: 


LDA 


EA4C 47 




MOV 


EA4D 3AF8P9 




LDA 


EA50 B7 




ORA 
JRZ 


EA51+283C 




OB 


EAS3 90 




SUB 
JRC 


EA54+382B 




DB 


EA56 CC4AEB 




CZ 


EA59 CDC8EA 




CALL 


EA5C CDB5EA 


docol: 


CALL 


EA5P CD09EB 




CALL 
JRNZ 


EA62+20F8 




OB 


EA64 3A6PP8 




LDA 


EA67 B7 




ORA 
JRZ 


BA68+280E 




DB 


EA6A AP 




XRA 


EA6B 326PF8 




STA 


EA6E 3EFP 


xmsk: 


MVI 


EA70 326BP8 


HSKOK: 


STA 


EA73 326DP8 




STA 
JR 


EA76+18D1 




DB 


EA78 3C 


MSKDON: 


INR 


EA79 326FP8 




STA 


EA7C 3A6AP8 




LDA 
JR 


EA7F+18EF 




DB 


EA6F ■. 


XHASK 


EOU 


EA81 3A6BFA 


EXITl: 


LDA 


EA84 E604 




ANI 
JRNZ 


EA86+2015 




DB 


EA68 3A6CPA 




LDA 


EA8B B604 




ANI 
JRZ 


EA8D+280E 




DB 


EA8P CDC8EA 


lstlin: 


CALL 


BA92 CD4AEB 




CALL 


EA95 CDB5BA 


LSTLNl: 


CALL 


EA96 CD09EB 




CALL 
JRNZ 


EA9B+20F6 


• 
* 


DB 


EA9D 3A6EP8 


exit: 


LDA 


EAAO B7 




ORA 


EAA1 CO 




RNZ 


EAA2 326AF8 




STA 



STRX1 ;START FOR X2 
GRY ;START LINE HERE 
B,A 
GRY1 

A ;IF GRY1 IS AT LAST LINE 
LSTLIN ;THEN DO IT AND LEAVE 
28H,LSTLIN-$-l 
B 

EXITl ;DONE IF PAST GRY 
38H,BXITl-$-l 
FIXBOT 

LINE ;DO A LINE 

COLUMN ;LOOP UNTIL ALL COLUMNS ARE DONE 
NXTBYT ;FIND NEXT BYTE 
DOCOL 

20H,DOCOL-S-1 
. CYC ;GET NEW MASK 
A 

MSKDON ;CYCLE TELLS US WHICH ONE 
28H,MSKDON-S-l 
A 

CYC 

A,0FFH MODIFIED MASK 
MASK2 
CURMSK 
DOMSK 

18H,D0MSK-$-l 
A 

CYC 
MASK 
MSKOK 
18H,MSKOK-$-l 

XMSK+1 

PIXBIT ;WE HAVE TO MAKE SURE TO GET 
4 

EXIT ;LAST LINE IF NEEDED. 

20H,EXIT-$-l 
PIXBT2 
4 

EXIT 
28 H, EXIT-S- 1 

LINE ;IF WE ARE AT THE LAST LINE 

FIXBOT 

COLUMN ;WE DO IT AND EXIT 
NXTBYT 

LSTLNl ;FALL INTO EXIT 
20H,LSTLN1-S-1 



CLFLG ;IF WE WERE CLEARING 
A 

;A BLOCK WE NEED 
MASK 
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EAAS 326PEA 




STA 


XMASK ;T0 RESTORE EVERYTHING 


EAAd 3BB2 




MVI 


A,0B2H ;0RA D 


EAAA 32C4BA 




STA 


ORAD 


EAAD 326EF8 




STA 


CLFLG 


EABO C9 




RET 




EAB1 77 


dnlin: 


MOV 


M,A 


EAB2 PI 




POP 


PSW 






JR 


LSTLIN 


EAB3+18DA 


• 
9 


DB 


18H,LSTLIN-3-l 


EAB5 3A6EF8 


9 

COLUMN: 


: LDA 


CLFLG ;IF WE ARE 


EAB6 B7 




ORA 


A ;CLEARING A BLOCK 


EAB9 3A6BF8 




LDA 


MASK2 






JRNZ 


CLMNl 


EABC+2001 


■' 


DB 


20H,CLMNl-3-l 


EABE 2F 




CMA 


;THEN COMPLEMENT THE MASK AND 


EABF 57 


CLMNl: 


MOV 


D,A 


EACO OEFE 




MVI 


CDDSPY ;AND IT INSTEAD OF ORING IT 






INP 


A 


EAC2+ED78 




DB 


0EDH,A*6+40H 


EAC4 B2 


ORAD: 


ORA 


D MODIFIED TO ANA D FOR CLEAR 






OUTP 


A 


EAC5+ED79 




DB 


0EDH,A*6+41H 


EAC7 C9 




RET 




EAC8 3A6AFA 


LINE: 


LDA 


STRX ;IF THE BLOCK IS LESS THAN 


EACB 4F 




MOV 


C,A 


EACC 3A69FA 




LDA 


STRX1 ;4 PIXELS WIDE 


EACF 91 




SUB 


C 


EADO FE04 




CPI 


4 ;WE NEED TO FIX THE RIGHT EDGE 


EA02 DC32EB 




CC 


FIXRGT 


EA05 3AF8F9 




LDA 


GRY1 ;FIND SDSPY FOR NEW LINE 


EAD8 C05FEB 




CALL 


LINDSP*3 • 


EADB D3EE 




OUT 


SDSPY 


EADD 3A6BFA 


FIXLFT: 


LDA 


PIXBIT ;FIX THE LEFT EDGE 


EAEO E603 




ANI 


03H 


EAE2 D603 




SUI 


3 ;TAKE PIXELS OFF THE EDGES 






JRZ 


FXLFT2 


EAE4+280F 




DB 


28H,FXLFT2-$-l 






NEG 


;PIXBIT TELLS US HOW MANY 


EAE6+ED44 




DB 


0EDH,44H 


EAE8 47 




MOV 


B,A 


EAE9 216BF8 




LXI 


H.MASK2 ;PIXELS TO TAKE OFF 


EAEC 7E 




MOV 


A,M 


EAED 1677 




MVI 


D,77H 


EAEF A2 


FXLFTl: 


ANA 


D 






RRCR 


D 


EAFO+CBOA 




DB 


OCBH, 08H * D 






DJNZ 


FXLFTl 


EAF2+10FB 




DB 


10H,FXLFT1-S-1 


EAF4 77 




MOV 


M.A 


EAF5 3A69FA 


FXLFT2S 


LDA 


STRX1 ;WE NEED STRX1 IN B 


EAF8 47 




MOV 


B,A ;FOR COL 


EAF9 C9 




RET 
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EAFA CD91EB 


PIX: 


CALL 


SETBIT 


;SET BIT TELLS US WHICH 






RRCR 


A 


;BIT IN A NIBBLE 


EAFD+CBOF 




DB 
RRCR 


OCBH, ( 
A 


)8H * A 


EAFF+CBOF 




DB 


OCBH, 06H * A 






RRCR 


A 


;MOVE FROM BITS 3,4,5 


EB01+CB0F 




DB 


OCBH, 08H + A 


EB03 E607 




ANI 


07H 


;TO 0,1,2 


EB05 326BFA 




STA 


PIXBIT 




EB08 C9 


9 
* 


RET 






EB09 3A69FA 


a 

NXTBYT! 


1 LDA 


STRX1 


;IF WE JUST FINISHED WITH 


EBOC B6 




CMP 
JRNZ 


B 
NXBYTl 


;THE FIRST BYTE 


EB0D+200D 




DB 


20H,NXBYTl-$-l 


EBOF 216DF8 




LXI 


HXURMSK ;WE MUST UNFIX 


EB12 4E 




MOV 


CM 


;THE LEFT EDGE 


SB 13 2B 




DCX 


H 


;MMASK 


EB14 7E 




MOV 


A,M 


•MMASK TELLS US IF THE T 


EB15 Al 




ANA 


C 


;WAS FIXED OR NOT 


EB16 2B 




DCX 


H 


;MASK2 


EB17 77 




MOV 


M,A 


;MASK2 IS THE FIXED MASK 


EB18 3EFF 




MVI 


A,0FFH 


;MAKE MMASK 'FF' 


EB1A 23 




INX 


H 




EB1B 77 




MOV 


M,A 


;MMASK 


EB1C 04 


NXBYTl: 


INR 


B 


;POINT TO NEXT BYTE 


EB1D 3A6AFA 




LDA 


STRX 




EB20 B8 




CMP 


B 


;COMPARE TO LAST BYTE 






JRZ 


FIXRGT 


;IF EQUAL FIX RIGHT EDGE 


EB21+280F 




DB 


28H,FIXRGT-S-1 


EB23 DO 




RNC 




;IF LESS DO IT 


EB24 21F8F9 




LXI 


H,GRY1 


;ELSE DECREMENT GRY1 TWICE 


EB27 7E 




MOV 


A,M 




EB28 B7 




ORA 


A 


;TO GET TO NEXT LOWER BYTE 


EB29 CB 




RZ 




;DO NOT GO BELOW ZERO 


EB2A 3D 




DCR 


A 


;DOWN TWO LINES 


EB2B CAB ISA 




JZ 


DNLIN 




EB2E 3D 




DCR 


A 




EB2F 77 




MOV 


M,A 




EB30 AF 




XRA 


A 


;SBT ZERO FLAG TO START A NEW LI 


EB31 C9 


• 

9 


RET 






EB32 3A6CFA 


FIXRGT: 


LDA 


PIXBT2 


;PIXBT2 IS FOR THE RIGHT EDGE 


EB35 E603 




ANI 


03 








JRZ 


FXRGT2 


;IF ZERO THEN NO FIXING NEEDED 


EB37+280F 




DB 


28H,FXRGT2-S-1 


EB39 C5 




PUSH 


B 


;SAVE X 


EB3A 47 




MOV 


B,A 




BB3B 16EE 




MVI 


D,0EEH 


;TAKE OFF 'PIXBT2' BITS 


EB3D 216BF8 




LXI 


H,MASK2 


;OFF RIGHT EDGE 


BB40 7E 




MOV 


A,M 




EB41 A2 


FXRGTl: 


ANA 


D 
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EB42+CB02 

EB44+10FB 
EB46 77 
EB47 CI 
EB46 3C 
EB49 C9 



RLCR 
DB 
DJNZ 
DB 
MOV 
POP 
FXRGT2: INR 
RET 



OCBH, 00H * D 

FXRGT1 

10H,FXRGT 1-0-1 

M,A ;SAVE IN MASK2 

B ;GET X 



EB4A OEFO 
EB4C 3A6CFA 
EB4F 2F 
EB50 E604 
EB52 CO 
EB53 216BF8 
EB56 79 
EB57 A6 
EB58 77 
EB59 23 
EB5A 71 
EB5B C9 

0179 » 

EB5C 3AF6F9 
EB5F C610 
EB61 2F 
BB62 216BFA 

EB65+CBAE 

EB67+CB47 

EB69+2002 

EB6B+CBEE 

EB6D+CB3F 
EB6F 06FF 
SB71 04 
EB72 C6FB 

EB74+38FB 
EB76 C605 
EB78 OF 
EB79 OF 
EB7A OF 
EB7B 4F 
EB7C 3AA4DA 
EB7F F5 
EB80 80 
EB81 FE16 

EB83+3802 
EB85 C6E8 



FIXBOT: MVI 
LDA 
CMA 

fixnib: ani 

RNZ 
LXI 
MOV 
ANA 
MOV 
INX 
MOV 
RET 

a 

GRFEND EQU 

LINDSP: LDA 
ADI 
CMA 
LXI 
RES 
DB 
BIT 
DB 
JRNZ 
DB 

SETB 
DB 

LNDSPl: SRLR 
DB 
MVI 

LNDSP2: INR 
ADI 
JRC 
DB 
ADI 
RRC 
RRC 
RRC 
MOV 
LDA 
PUSH 
ADD 
CPI 
JRC 
DB 
ADI 



COFOH ;BOTTOM EDGE 
PIXBT2 ;BIT 2 OF PIXBIT TELLS 

;US WHICH NIBBLE WE ARE IN 
4 ;FIXNIB IS USED BY FIXTOP ALSO 

;RETURN IF NO FIXING NEEDED 
H,MASK2 

A,C ;AND MASK2 WITH FO OR OF 

M ;TO TAKE OFF TOP OR BOTTOM LINE 

M*A 
H 
M,C ;PUT OF OR FO IN MM ASK 

;TO REMEMBER 



S-GRFSTR 

GRY 
16 



;FIND OUT WHICH NIBBLE 



H,PIXBIT 

5,M 

0CBH,5«8*M*80H 

0,A 

0CBH,0»8+A+40H 

LNDSPl 

20IT,LNDSP1-S-I 

5,M 

0CBH,5»8*M*0C0H 

A 

OCBH, 38H * A 

B,-l ;AND WHICH LINE 

B 

-5 

LNDSP2 

38H,LNDSP2-S-1 

5 



C,A 

LINOFS 

PSW 

B 

24 

LNDSP3 

38H,LNDSP3-S-1 

-24 



;SAVE LINOFS 
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EB87 Bl 


LNOSP3: 


ORA 


C 




EB88 CI 




POP 


B 


;IN B FOR EXTERNAL US 


EB89 C9 




RET 






EB8A 7D 


xddr: 


MOV 


AX 


;X COORDINATE IN CHL] 


EB8B E6PC 




ANI 


OFCH 




EB8D B4 




ORA 


H 




EB8E OF 




RRC 






EB8P OF 




RRC 






EB90 C9 




RET 






EB91 7D 


SETBIT: 


MOV 


A,L 


;FIND OUT WHICH BIT 


EB92 07 




RLC 






EB93 07 




RLC 




;IN THE NIBBLE 


EB94 07 




RLC 






EB95 E618 




ANI 


18H 




EB97 47 




MOV 


. B,A 




EB98 3A6BFA 




LDA 


PIXBIT 




EB9B E6B7 




ANI 


0E7H 




EB9D BO 




ORA 


B 




EB9E EE16 




XRI 


18H 




EBAO C9 




RET 







PLOT POINT SPECIFIED BY GRX,GRY 



EBA1 3ABEEB 


PPLOT: 


LDA 


GRFBIT*! 


EBA4 326BFA 




STA 


PIXBIT 


EBA7 CD5CEB 




CALL 


LINDSP ;INVERT Y 


EBAA D3EE 




OUT 


SDSPY 


EBAC 2AF2F9 




LHLD 


GRX 


EBAF CD91EB 




CALL 


SETBIT ;GET X 


EBB2 32BEEB 




STA 


GRFBIT* 1 


EBB5 CD8AEB 




CALL 


XDDR ;SET X ADDRESS 


EBB8 47 




MOV 


B,A 


EBB9 OEFE 




MVI 


CDDSPY 






INP 


A 


EBBB+ED76 




DB 


0EDH,A*8+40H 




GRFBIT: 


SETB 


0,A ;MODIFIED BIT SET 


EBBD+CBC7 




DB 


0CBH,0*8+A+0C0H 






OUTP 


A 


EBBF+ED79 




DB 


0EDH,A«8*41H 


EBC1 C9 


/ 


RET 




EBC2 32F1F9 


• 

CHPH: 


STA 


GRMODE 


EBC5 7D 




MOV 


A,L 


EBC6 2F 




CMA 




EBC7 6F 




MOV 


L,A 


EBC8 7C 




MOV 


A,H 


EBC9 2F 




CMA 




EBCA 67 




MOV 


H,A 


EBCB 23 




INX 


H 


EBCC C9 




RET 
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BBCD 2AP2P9 


SWPX: LHLD 


GRX 




LOED 


GRX1 


EBD0+BD5B 


DB 


0EDH,5BH 


EBD2+F4F9 


DW 


GRX1 


BBD4 22F4F9 


SHLD 


GRX1 




SDEO 


GRX 


EBD7+BD53 


DB 


0EDH,53H 


EBD9+F2F9 


DW 


GRX 


BBOB C9 


RET 




BBDC 2AP6P9 


SWPY: LHLD 


GRY 




LBCD 


GRY1 


BBDP+BD4B 


DB 


0EDH,4BH 


EBE1+F8F9 


DW 


GRY1 


EBB3 22F8P9 


SHLD 


GRY1 




SBCD 


GRY 


EBE6*ED43 


DB 


0EDH,43H 


EBB8*F6F9 


DW 


GRY 


EBEA C9 


RET 




6BEB 2AP2F9 


DRWBLK: LHLD 


GRX 


EBEB B5 


PUSH 


H 


BBBF 22F4F9 


SHLD 


GRX1 


EBF2 CD16BC 


CALL 


VPLOT 


BBF5 2A65PA 


LHLD 


GRX 12 


EBP8 BS 


PUSH 


H 


EBF9 22F4F9 


SHLD 


GRX1 


BBFC CD16EC 


CALL 


VPLOT 


BBFF Bl 


POP 


H 


ECOO 22F2F9 


SHLD 


GRX 


ECO 3 22F4F9 


SHLD 


GRX1 


ECO 6 CDA1EB 


CALL 


PPLOT 


EC09 3A67FA 


LDA 


GRY 12 


ECOC 32F6F9 


STA 


GRY 


ECOF CD16EC 


CALL 


VPLOT 


BC12 El 


POP 


H 


EC13 22F2F9 


SHLD 


GRX 



EXCHANGE GRX & GRX1 



EXCHANGE GRY & GRY1 



PLOT VECTOR FROM X1,Y1 TO X,Y 



CALCULATE DELTA X 



EC16 CDCDEB 


VPLOT: 


CALL 


SWPX 


EC19 E5 




PUSH 


H 


ECU AF 




XRA 


A ;CLEAR CARRY & A 


EC1B 32F1F9 




STA 


GRMOOE INITIALIZE DELTA SIGNS 






DSBC 


D 


EC1E+ED52 




DB 


0EDH,D»8+42H 






JRNC 


VPLOT1 


EC20+3004 




DB 


3 OH, VPLOT 1-3-1 


EC22 3C 




INR 


A ;HANDLE -X 


EC23 CDC2EB 




CALL 


CMPH COMPLEMENT H 


EC26 EB 


VPLOT l: 


XCHG 


jLEAVE DELTA X IN D 




; CALCULATE DELTA Y 


EC27 CDDCEB 




CALL 


SWPY 
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EC2A E5 




PUSH 


H 


EC2B AF 




XRA 


A ;CLEAR CARRY 


EC2C 3AF1F9 




LDA 


GRMODE 






DSBC 


B 


EC2F+ED42 




DB 


0EDH,B*8+42H 






JRNC 


VPLOT2 


BC31+3005 




DB 


30H,VPLOT2-$-l 






SETB 


1,A jHANDLE -Y 


EC33+CBCF 




DB 


0CBH,1«8+A+0C0H 


EC35 CDC2EB 




CALL 


CMPH 




; HL = 


DELTA Y 






; COMPARE DELTA X AND DELTA Y 


EC38 E5 


VPLOT2: 


: PUSH 


H 


EC39 AF 




XRA 


A ;CLEAR CARRY 


EC3A 3AF1F9 




LDA 


GRMODE 






DSBC 


D 


EC3D+ED52 




DB 


0EDH,D*8+42H 


EC3F El 




POP 


H 






JRC 


VPLOT3 


EC40+3801 




DB 


38H,VPLOT3-$-l 


EC42 EB 




XCHG 


;SET UP FOR DELTA Y >* DELTA X 


EC43 42 


VPLOT3: 


; MOV 


B,D ;SET UP FOR DELTA X > DELTA Y 


EC44 4B 




MOV 


C,E 






SDED 


GDELL 


EC45+ED53 




DB 


0EDH,53H 


EC47+EDF9 




DW 


GDELL 


EC49 22EBF9 




SHLD 


GDELS 


EC4C 21F2P9 




LXI 


H,GRX 


EC4F 11F6F9 




LXI 


D,GRY 






JRC 


VPLOT4 


EC52+380A 




DB 


38H,VPLOT4-S-l 


EC54 EB 




XCHG 








BIT 


0,A ;SWAP BITS 1 & 


EC55+CB47 




DB 


0CBH,0*8*A*40H 


EC57 IF 




RAR 








RES 


1,A 


EC58+CB8F 




DB 


0CBH,1»8*A*80H 






JRZ 


VPLOT4 


EC5A+2802 




DB 


28H,VPLOT4-S-l 






SETB 


1,A 


EC5C+CBCF 




DB 


0CBH,1»8*A*0C0H 


EC5E 2292EC 


VPLOT4: 


SHLD 


GLL 


EC61 2296EC 




SHLD 


GLS 


EC64 EB 




XCHG 




EC65 22ABEC 




SHLD 


GSL 


EC68 22B0EC 




SHLD 


GSS 






BIT 


1,A 


EC6B+CB4F 




DB 


0CBH,1«8*A*40H 


EC6D F5 




PUSH 


PSW 


EC6E 3E13 




MVI 


A,13H ;INX H 






JRZ 


VPLOT5 


EC70+2802 




DB 


28H,VPLOT5-S-l 


EC72 3E1B 




MVI 


A,1BH ;DCX H 


EC74 32ADEC 


VPLOT5: 


STA 


GSI ;SET LONG DIMENSION INCREMENT 


EC77 Fl 




POP 


PSW 






BIT 


0,A 
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BC78+CB47 




DB 


OCBH,0«8*A*40H 


EC7A 3B23 




MVI 


A,23H 






JRZ 


VPLOT6 


EC7C+2802 




DB 


28H,VPLOT6-S-l 


EC7S 3E2B 




MVI 


A,2BH 


EC80 3294EC 


VPL0T6: 


: STA 


GLI 




I PLOT 


ACTUAL 


VECTOR 


EC83 60 




MOV 


H,B ;GRK»GDELL/2 


EC84 69 




MOV 


L,C 






SRLR 


H 


EC85+CB3C 




DB 


OCBH, 38H ♦ H 






RARR 


L 


EC87+CB1D 




DB 


OCBH, 18H ♦ L 


EC89 22BFF9 




SHLD 


GRK 


EC8C 78 


VPL0T7: 


; MOV 


A3 


EC8D Bl 




ORA 


C 






JRZ 


VPLOT9 


EC8B+262C 




DB 


28H,VPLOT9-S-l 


EC90 C5 




PUSH 


B 


EC91 2AP2P9 


glli: 


LHLD 


GRX ;MODIFIABLE CODE 


EC94 23 


gli: 


INX 


H ;MODIFIABLE CODE 


EC95 22F2P9 




SHLD 


GRX ;MODIFIABLE CODE 


EC98 2AEFP9 




LHLD 


GRK 






LDED 


GDBLS 


EC9B+ED5B 




DB 


0EDH,5BH 


EC9D+EBF9 




DW 


GDBLS 


EC9F B7 




ORA 


A 






DSBC 


D 


ECA0+ED32 




DB 


0EDH,D»8*42H 






JRNC 


VPL0T8 


ECA2+300B 




DB 


30H,VPLQT8-S-1 






LDBD 


GDELL 


ECA4+BD5B 




DB 


0EDH,5BH 


ECA6*EDF9 




DW 


GDELL 


ECA8 19 




DAD 


D 






LDED 


GRY ;MODIFIABLE CODE 


ECA9+ED5B 




DB 


0EDH,5BH 


ECAB+F6F9 




DW 


GRY 


ECAO 13 




INX 


D ^MODIFIABLE CODE 






SDED 


GRY ;MODIFIABLE CODE 


ECAE+ED53 




DB 


0EDH,53H 


ECB0*F6F9 




DW 


GRY 


ECB2 22EFF9 


VPLOT8: 


SHLD 


GRK 


ECBS CDA1EB 




CALL 


PPLOT 


ECB8 CI 




POP 


B 


ECB9 OB 




DCX 


B 






JR 


VPL0T7 


ECBA+18D0 




DB 


18H,VPL0T7-S-1 


ECBC Bl 


VPLOT9: 


POP 


H ;RESTORE GRX & GRY 


ECBD 22F6F9 




SHLD 


GRY 


ECCO El 




POP 


H 


ECC1 22F2F9 




SHLD 


GRX 


ECC4 C9 




RET 




EC92 * 


GLL 


EQU 


GLL1*1 


EC96 = 


GLS 


EQU 


GLL+4 
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SCAB = 


GSL 


EQU 


GLL+25 




ECAD = 


GSI 


EQU 


GLL+27 




ECBO * 


GSS 


EQU 


GLL+30 






•CLEAR 


GRAPHIC 


MEMORY 




ECC5 0618 


GRFCLR: 


MVI 


B,24 


;SET UP 


ECC7 1600 




MVI 


D,0 




ECC9 C5 


GRFCLl: 


PUSH 


B 


;~LOOP 24 LINES 


ECCA 0605 




MVI 


B,5 




ECCC C5 


GRFCL2: 


PUSH 


B 


. L 00P 5 SCAN PAIRS 


BCCD 7A 




MOV 


A,D 




ECCE D3EE 




OUT 


SDSPY 




ECDO 01FE4F 




LXI 


B,79«256 


♦DDSPY 


ECD3 AF 




XRA 


A 






GRFCL3: 


OUTP 


A 


. L oop 80 CHAR POS 


ECD4*ED79 




DB 


OEDH,A«8 


♦41H 






OJNZ 


GRFCL3 


. END LOOP 


ECD6*10FC 




DB 


10H,GRFCL3-$-l 






OUTP 


A 




ECD8+ED79 




DB 


0EDH,A«6 


♦41H 


ECDA 7A 




MOV 


A,D 




ECDB C620 




ADI 


20H 




ECDD 57 




MOV 


D,A 




ECDE CI 




POP 


B 








DJNZ 


GRFCL2 


; END LOOP 


ECDF+10EB 




DB 


10H,GRPCL2-$-l 


ECE1 7A 




MOV 


A,D 




ECE2 3C 




INR 


A 




ECE3 E61F 




ANI 


1FH 




ECE5 57 




MOV 


D,A 




ECE6 CI 




POP 


B 








DJNZ 


GRFCLl 


;— END LOOP 


ECE7+10E0 




DB 


10H,GRFCL1-S-1 


ECE9 C9 




RET 
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VALET 



ECEA 
ECED 
ECFO 
ECF1 
ECF2 
ECF3 
ECF4 
ECF7 
ECF8 
BCF9 
ECFA 
ECFB 
ECFE 
ECFF 
EO01 
ED02 
EO05 
ED06 
ED08 
EDOB 
EDOE 
EDOF 
ED11 
EDI 4 
ED17 



2A49FA 

2247FA 

Fl 

CI 

Dl 

El 

319DFF 

E5 

05 

C5 

F5 

21FAF9 

7E 

3600 

F5 

21AFDA 

7E 

3600 

3243FA 

2180DA 

7E 

3600 

3244FA 

216EBO 

ES 



ED16+ED4D 



VALCHK: LHLD 
SHLD 
POP 
POP 
POP 
POP 
LXI 
PUSH 
PUSH 
PUSH 
PUSH 
LXI 
MOV 
MVI 
PUSH 
LXI 
MOV 
MVI 
STA 
LXI 
MOV 
MVI 
. STA 
LXI 
PUSH 
RETI 
OB 



TEMSTK 

VALPNT 

PSW 

B 



H 

SP,VALSTK 

H 



B 

PSW 

H,DSPCYC 

A,M 

M,0 

PSW 

H,NUMFLG 

A,M 

H,0 

NUMSAV 

H,WSFLAG 

A,M 

M,0 

WSSAVE 

H,VALENT 

H 

0EDH,4DH 



E01A F3 
ED1B AF 
BD1C CD7BEF 
ED1F 2174F8 
ED22 3A3EFA 

ED25+CB4F 

ED27+2002 
ED29 23 
ED2A 23 
ED2B CDE4EF 
ED2E AF 
ED2F 3 28 IDA 
ED32 32870A 
ED35 3245FA 
ED38 32FCF9 
ED3B 3253FA 
ED3E 2F 
ED3F 32AEOA 
ED42 3A43FA 
ED4S 32AFDA 



CLNVAL: 01 

XRA 

CALL 

LXI 

LOA 

BIT 

DB 

JRNZ 

DB 

INX 

INX 

CLNVLl: CALL 
XRA 
STA 
STA 
STA 
STA 
STA 
CMA 
STA 
LDA 
STA 



A 

OUTBLK 
H,VALCLN 
LSAVB 
1,A 

0CBH,1»8+A+40H 
CLNVLl 

20H,CLNVLl-$-l 
H 
H 

VALMSG 
A 

VALSTP 
VALTIM 
CONFLG 
SETFLG 
NOKEY 

TIMFLG 
NUMSAV 
NUMFLG 
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ED48 3A44FA 


LDA 


WSSAVE 


ED4B 3280OA 


STA 


WSFLAG 


BD4E 215802 


RSTALM: LXI 


H,600 


ED51 AF 


RSTALl: XRA 


A 


ED52 32A70A 


RSTAL2: STA 


ALMCNT 


ED55 22A9DA 


SHLD 


ALHFLG 


ED58 C9 


RET 




ED59 CD1AED 


VALEXT: CALL 


CLNVAL 


ED5C F3 


DI 




ED5D 3193FF 


LXI 


SP,VALSTK-10 


ED60 Fl 


POP 


PSW 


ED61 32FAF9 


STA 


DSPCYC 


ED64 Fl 


POP 


PSW 


ED65 CI 


POP 


B 


ED66 Dl 


POP 


D 


ED67 El 


POP 


H 




LSPD 


VALPNT 


ED68+ED7B 


OB 


0EDH,07BH 


ED6A+47FA 


DW 


VALPNT 


ED6C FB 


EI 




ED6D C9 


RET 




E06E AF 


VALBNT: XRA 


A 


ED6F 3283DA 


STA 


VALPND 


ED72 2F 


CHA 




E073 3245FA 


STA 


CONFLG 


ED76 FB 


EI 




ED77 CD7BBF 


CALL 


OUTBLK 


ED7A 3A46FA 


LDA 


LSTATE 


ED7D 323EFA 


STA 


LSAVE 


ED80 2178F8 


LXI 


H,VALPAR 


ED83 CDE4BF 


CALL 


VALMSG 


ED86 3BFF 


VALRTN: MVI 


A,0FFH 


E088 3287DA 


STA 


VALTIM 


ED8B 213720 


LXI 


H,2037H 


ED8B CD2FF0 


CALL 


POSCUR 


ED91 012050 


LXI 


B,5020H 


ED94 CDB5E1 


VLLOOP: CALL 


VALDSP 




DJNZ 


VLLOOP 


ED97+10FB 


DB 


10H,VLLOOP-$-l 


E099 CD45F0 


CALL 


BRTDSP ;DISPLAY CURRENT 


ED9C CD3AF0 


CALL 


VOLDSP ;PARAMETERS 


ED9F CDFFEF 


CALL 


KEYDSP 


EDA2 CDOAFO 


CALL 


COMUP 


EOA5 CD12F0 


CALL 


PNTUP 


EDA8 COF2EF 


CALL 


BELDSP 


EDAB FB 


VLVEXl: EI 


POSITION CURSOR 


EOAC 3A86DA 


LDA 


VALCMD 


EOAF FE21 


CPI 


'!' ; IF VALCMD IS ! 




JRZ 


VLV2 ; THEN GOTO OVERLAY 


EDB1+2822 


DB 


28H,VLV2-S-1 


EDB3 CD6EE0 


CALL 


CONIN ; ELSE GET KEY 


EDB6 B7 


ORA 


A ; IF = CTRL/ESC 




JRZ 


VLVO ; THEN EXIT SET-UP MODE 



CP/M MACRO ASSBM 2.0 #099 ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 

EDB7*280C DB 28H,VLV0-S-1 

EDB9 PE09 CPI 9 ; ELSE IF = ASCII TAB 

JR2 VLV2 ; THEN GOTO OVERLAY 

EDBB+2818 DB 28H,VLV2-S-1 

EOBD PE3A CPI 3AH ; ELSE IF > ASCII 9 

JRNC VLV1 . ; THEN ..VI 

EDBF+3007 DB 30H,VLV1-S-1 

EDC1 FE29 CPI 29H ; ELSE IF > ASCII 

JRNC VLV3 ; THEN ..V3 

EDC3+3013 DB 30H,VLV3-S-1 

BDC5 C359ED VLVO: JNP VALEXT ; ELSE EXIT SET-UP MODE 

EDC8 B6DF VLVl; ANI ODFH ;. CHANGE TO UPPER CASE 

EDCA FE41 CPI 'A' ; IF < ASCII 'A' 

JRC VLVO ; THEN EXIT SET UP MODE 

BDCC+38F7 DB 38H,VLV0-S-1 

EDCE FESB CPI 'Z'*l ; ELSE IF > ASCII '2' 

JRNC VLVO ; THEN EXIT SET-UP MODE 

EDD0+30F3 DB 30H,VLVO-$-l 

EDD2 3286DA STA VALCMD ; ELSE STORE CHARACTER 

EDD5 C36AF0 VLV2: JMP GETVAL ; GOTO OVERLAY 

EDD8 D630 VLV3: SUI 30H ; SET ASCII NUMERIC TO OFFSET 

EDDA 21ABED LXI H,VLVBX1 

EDDD E5 PUSH H 



EDDE+200A 
EDEO 3A50FA 
EDE3 2F 
EDE4 CD18F2 
EDE7 C3F2EF 



JRNZ 

DB 

LDA 

CMA 

CALL 

JMP 



VLBRIT ;0 - BELL TOGGLE 

20H,VLBRIT-$-l 

CURBEL COMPLEMENT CURBEL 

WRTBEL ;SAVE IN CMOS RAM 
BELDSP ;DISPLAY CURRENT STATE 



EDEA 3D 
EDEB 214FFA 

EDEB+2007 
EDFO 7E 
EDF1 FE1F 
EDF3 C8 
EDF4 3C 

EDF5+1807 
EDF7 3D 

EDF8+2011 
EDFA 7E 
EDFB B7 
EDFC C& 
EDFD 3D 
EDFE F5 
EDFF CD06F2 
EE02 Fl 
EE03 F5 
EE04 CD47EF 
EB07 Fl 
EB08 C348F0 
EEOB 30 



VLBRIT: DCR 
LXI 
JRNZ 
DB 
MOV 
CPI 
RZ 
INR 
JR 
DB 

VLBTDN: DCR 
JRNZ 
DB 
MOV 
ORA 
RZ 
DCR 

VLDOBTS PUSH 
CALL 
POP 
PUSH 
CALL 
POP 
JMP 

VLVLUP: DCR 



A ;1 - BRIGHT UP 

H,BRTLEV 

VLBTDN 

2OH,VLBTDN-0-l 

A,M ;CHECK CURRENT BRIGHTNESS 

1FH ;FOR MAX 

;IF MAX-GET KEY 
A ;ELSE INCREASE BRIGHTNESS 

VLDOBT 

18H,VLD0BT-S-1 
A ;2 - BRIGHT DOWN 

VLVLUP 

20H,VLVLUP-S-1 

A,M ;CHECK CURRENT BRIGHTNESS 
A ;F0R MINIMUM 

;IF MIN-GET KEY 
A ;ELSE DECREASE BRIGHTNESS 
PSW 
WRTBRT 
PSW 
PSW 

BRTADJ ;ADJUST BRIGHTNESS TO NEW VALUE 
PSW 

BRTDSP+3 
A 
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EBOC 2151FA 




LXI 


H,VOLEVL 






JRNZ 


VLVLDN 




EE0F+2007 




DB 


20H,VLVLDN-S-1 


EE11 7E 




MOV 


A,M 


;R£AD CURRENT VOLUME 


EE12 PEOF 




CPI 


OFH 


;MAX? 


EE14 C8 




RZ 




;YES-GET KEY 


EE15 3C 




INR 


A 


;ELSE INCREASE 






JR 


VLDOVL 


•AND ADJUST 


EE16+1807 




DB 


18H,VLDOVL-$-l 


EE18 3D 


VLVLDN: 


: DCR 
JRNZ 


A 
VLCLKS 


;4 - VOLUME DOWN 


EE19+2017 




DB 


20H,VLCLKS-S-1 


EE1B 7E 




MOV 


A,M 


;READ CURRENT VOLUME 


EE1C B7 




ORA 


A 


;MIN? 


EE1D CB 




RZ 




;YES-GET KEY 


EE1E 3D 




DCR 


A 


;ELSE DECREASE 


BE1F F5 " 


vldovl: 


PUSH 


PSW 




EE20 CD1FF2 




CALL 


WRTVOL 




EE23 Fl 




POP 


PSW 




EE24 F5 




PUSH 


PSW 




EE25 CD67EF 




CALL 


VOLADJ 


•ADJUST VOLUME TO NEW 


EE28 215FF6 




LXI 


H,HIDA 




EE2B CD78E1 




CALL 


SOUND 


;OUTPUT SOUND 


EE2E Fl 




POP 


PSW 




EE2F C33DF0 




JMP 


VOLDSP* 


3;AND DISPLAY NEW VALUE 


EE32 3D 


vlclks: 


DCR 
JRNZ 


A 
VLCOM 


;5 - CHANGE CLICK 


EE33+2023 




DB 


20H,VLCOM-S-1 


EE35 3A4EFA 




LDA 


TONTYP 


;READ CURRENT CLICK 


EE36 2A84DA 




LHLD 


CLIKAD 


;POINT TO CLICK TABLE 


EE3B OlOFOO 




LXI 


B,15 


;POINT TO NEXT CLICK 


EE3E 09 




DAD 


B 




EE3F 3C 




INR 


A 




EE40 FE05 




CPI 


5 


•IF PAST END OF TABLE 






JRNZ 


VLCLKl 


;RESET POINTER 


EB42+2004 




DB 


20H,VLCLK1-S-1 


EE44 2132F6 




LXI 


H,NOTONE;TO START OF TABLE 


EB47 AF 




XRA 


A 




EE48 F5 


VLCLKl: 


PUSH 


PSW 




EE49 B5 




PUSH 


H 




EB4A CD26F2 




CALL 


WRTTON 


;WRITE CURRENT CLICK TO 


EB4D El 




POP 


H 


;CMOS RAM 


EB4E 2264DA 




SHLD 


CLIKAD 




EE51 CD7SE1 




CALL 


SOUND 


;OUTPUT A CLICK 


EB54 Fl 




POP 


PSW 




EE55 C302F0 




JMP 


KEYDSP* 


3;DISPLAY NEW VALUE 


EE58 3D 


VLCOM: 


DCR 
JRNZ 


A 
VLCMDN 




EE59+2009 




DB 


20H,VLCMDN-S-1 


EE5B CD5DF2 




CALL 


REDCOM 




EE5E FEOA 




CPI 


10 




EE60 C8 




RZ 






EE61 3C 




INR 
JR 


A 
VLDOCM 




EE62+1609 




DB 


18H,VLDOCM-$-l 


EE64 3D 


vlcmdn: 


DCR 


A 
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JRNZ 


VLPTUP 


SE65+200F 




DB 


20H.VLPTUP-S-1 


EB67 CD5DF2 




CALL 


REDCOM 


ES6A B7 




ORA 


A 


EE6B C8 




RZ 




EE6C 3D 




DCR 


A 


EB60 CD31P2 


vldocm: 


CALL 


WRTCOM 


EE70 CDOAFO 




CALL 


COMUP 


EE73 C320EF 




JMP 


ADJCOM 


EE76 3D 


VLPTUPS 


DCR 


A 






JRNZ 


VLPTDN 


EB77+2009 




DB 


20H,VLPTDN-S-1 


BB79 CD61F2 




CALL 


RBDPNT 


EB7C FEOA 




CPI 


10 


BB7E C8 




RZ 




EB7F 3C 




INR 


A 






JR 


VLDOPT 


EB80*1806 




DB 


18H,VLD0PT-S-1 


EB82 CD61F2 


VLPTDN: 


CALL 


RBDPNT 


EE85 B7 




ORA 


A 


EB86 C8 




RZ 




EB87 3D 




DCR 


A 


EB88 CD2DF2 


vldopt: 


CALL 


WRTPNT 


EB8B CD12F0 




CALL 


PNTUP 


EE8B C326BF 




JMP 


ADJPNT 
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EE91 E5 


dsptim: 


PUSH 


H 




EE92 D5 




PUSH 


D 




EE93 C5 




PUSH 


B 




EE94 2A07FA 




LHLD 


CHRADR 




EE97 112020 




LXI 


D,2020H 




EE9A 19 




DAD 


D 




EE9B E5 




PUSH 


H 




EE9C 3AADDA 




LDA 


CLKFLG 




EE9F B7 




ORA 
JRNZ 


A 
DSPTM3 




EEA0+200F 




DB 


20H,DSPTM3-S-1 




EEA2 213720 


DS'PTMl: 


: LXI 


H,2037H 




EEA5 CD2FF0 




CALL 


POSCUR 




EEA8 21D9F8 


DSPTM2: 


LXI 


H,NOTSET 




EEAB CDE4EF. 




CALL 


VALMSG 




EEAE C316EF 




JMP 


DSPTM9 




EEB1 213720 


DSPTM3: 


LXI 


H,2037H 




EEB4 CD2FF0 




CALL 


POSCUR 




EEB7 CD2EE7 




CALL 


READTM 




EEBA FE3F 




CPI 
JRZ 


DSPTM2 




EEBC+28EA 




DB 


28H,DSPTM2-J?-1 




EEBE 21B0FB 


- 


LXI 


H,HRS10 




EEC1 7E 




MOV 


A,M ;SUPPRSS LEADING 


ZERO 


EEC2 E6F3 




ANI 


0F3H 




EEC4 FE30 




CPI 
JRNZ 


30H 
DSPTMA 




EEC6+2002 




DB 


20H,DSPTMA-S-1 




EEC8 E62F 




ANI 


2FH 




EECA 4F 


DSPTMA: 


MOV 


C,A ;DISPLAY TIME 




EECB CDB5E1 




CALL 


VALDSP 




EECE 2B 




DCX 


H 




EECF 4E 




MOV 


CM 




EEDO CDB5E1 




CALL 


VALDSP 




EED3 1E02 




MVI 


E,2 




EED5 0E3A 


DSPTM4: 


MVI 


\f f m 




EED7 CDB5E1 




CALL 


VALDSP 




EEDA 0602 




MVI 


B,2 




EEDC 2B 


DSPTM5: 


DCX 


H 




EEDD 4B 




MOV 


CM 




EEOE CDB5E1 




CALL 
DJNZ 


VALDSP 
DSPTM5 




EEE1+10F9 




DB 


10H,DSPTM5-$-l 




EEE3 ID 




DCR 
JRNZ 


E 
DSPTM4 




EEE4+20EF 




DB 


20H,DSPTM4-S-1 




EEE6 0E20 




MVI 


C/ ' 




EEE8 CDB5E1 




CALL 


VALDSP 




EEEB CD54E7 




CALL 


READAT 




EEEE FE3F 




CPI 
JRZ 


DSPTM1 




EEF0+28B0 




DB 


28H,DSPTMl-$-l 




EEF2 21AEFB 




LXI 


H.MINS10 
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BBF5 7E 
EEP6 E6F3 
EEP8 FE30 

EEFA+2002 
EEFC 3E20 
EEFE 77 
EEFF 0602 
EF01 4E 
EF02 CDB5E1 
EF05 2B 

EF06+10F9 
EF08 0E2F 
EFOA CDB5E1 
EFOO 0602 
EFOF 4E 
EF10 2B 
EF11 CDB5B1 

EF14+10F9 
EF16 El 
EF17 CD2FF0 
EF1A 3EFF 
EF1C 32AEDA 
BF1F 3287DA 
EF22 CI 
EF23 Dl 
EF24 El 
EF25 C9 

EF26 CD61F2 
BF29 1EF5 

EF2B*1805 

EF2D CD5DF2 
EF30 1BF4 

EF32 07 
EF33 4F 
EF34 0600 
EF36 21BBF5 
EF39 09 
EF3A F3 
EF3B 4B 
EF3C 7E 
EF3D E670 
EF3F F607 

EF41*ED79 
EF43 23 

EF44+EDA3 
EF46 C9 



MOV 

ANI 

CPI 

JRNZ 

OB 

MVI 

DSPTM6: MOV 
MVI 

DSPTM7: MOV 
CALL 
DCX 
OJNZ 
OB 
MVI 
CALL 
MVI 

DSPTM8: MOV 
DCX 
CALL 
DJNZ 
DB 

DSPTM9: POP 
CALL 
MVI 
STA 
STA 
POP 
POP 
POP 
RET 

ADJPNT: CALL 
MVI 
JR 
DB 

ADJCOM: CALL 
MVI 

BAUDGN: RLC 
MOV 
MVI 
LXI 
DAD 
DI 
MOV 
MOV 
ANI 
ORI 
OUTP 
DB 
INX 
OUTI 
DB 
RET 



A,M 

0F3H 

30H 

DSPTM6 

20H,DSPTM6-S-1 

A,20H . 

M,A 

B,2 

CM 

VALDSP 

H 

DSPTM7 

10H,DSPTM7-S-1 

C//' 

VALDSP 

B,2 

CM 

H 

VALDSP 

DSPTM8 

10H,DSPTM8-S-1 

H 



;DISPLAY DATE 



;CURSOR TO LOWER RIGHT CORNER 
;SET FLAGS FOR SRV60 & CONIN 



POSCUR 

A,0FFH 

TIMFLG 

VALTIM 

B 

D 

H 



REDPNT 
E,BAUDP 

BAUDGN 

18H,BAUDGN-S-1 

REDCOM 
E^BAUDC 

;OUTPUT TWO BYTES 

C,A ;FROM BAUD 

B,0 ;TABLE 

H BTABL 

b' ;CONTROL WORD AND TIME CONSTANT WORD 



C,E 

A,M 

7 OH 

7 

A 

0EDH,A«8+41H 

H 

0EDH.0A3H 



;MASK OUT INT. ENAB. BIT 
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EF47 E61F 


brtadj: 


: ANI 


1FH 


;SHIFT LEVEL INTO 


EF49 07 




RLC 




; CORRECT POSITION 


EF4A 07 




RLC 




; FOR LATCH 


EF4B 07 




RLC 






EF4C 57 




MOV 


D,A 


• SAVE NEW LEVEL 


EF4D AF 




XRA 


A 




EF4E 3E07 




MVI 


A, 7 




EF50 CD27E1 




CALL 


LLATCH 


; CLEAR PRESENT LEVEL 


EF53 B7 




ORA 


A 




EF54 7A 




MOV 


A,D 




EF55 C327E1 




JMP 


LLATCH 


; OR IN NEW LEVEL 


EF58 060A 


GTBRIT: 


MVI 


B,0AH ; 


:GET MSB AND LSB 


EF5A CD63F2 




CALL 


RD5101 


;OF BRIGHTNESS LEVEL 


EF5D F5 




PUSH 


PSW 


jFROM CMOS RAM 


EF5E 060B 




MVI 


B,0BH 




EF60 CD63F2 




CALL 


RD5101 




EF63 CI 




POP 


B 




EF64 C3B5F2 




JMP 


PACK 


;PACK INTO ONE BYTE 


EF67 2136F6 


voladj: 


LXI 


H,NOTONB 


♦4 


EF6A 0605 




MVI 


B,5 


;CHANGE VOLUME BY CHANGING 


EF6C C5 


voli: 


PUSH 


B 


;3 BYTES IN EACH 


EF6D 0603 




MVI 


B,3 


;OF 5 SOUNDS 


EF6F 77 


VOL2: 


MOV 


M,A 




EF70 23 




INX 
DJNZ 


H 
VOL2 




EF71+10FC 




DB 


10H,VOL2 


-$-1 


EF73 110C00 




LXI 


D,000CH 




EF76 19 




DAD 


D 




EF77 CI 




POP 
DJNZ 


B 
VOLI 




EF78+10F2 




DB 


1 OH, VOLI 


-S-l 


EF7A C9 




RET 






EF7B 4F 


outblk: 


MOV 


C,A 




EF7C 111800 




LXI 


D,18H 




EF7F 211600 




LXI 


H,16H 




EF82 CD71E2 


OTB3: 


CALL 


CMPOFF 




EF85 7D 




MOV 


A,L 




EF86 F6C0 




ORI 


OCOH 




EF88 6F 




MOV 


L,A 




EF89 0605 


0TB4: 


MVI 


B,5 




EF8B C5 


OTBl: 


PUSH 


B 




EF8C 79 




MOV 


A,C 




EF8D B7 




ORA 


A 


;0 = MOVE FROM MEMORY TO 


EF8E F5 




PUSH 
JRNZ 


PSW 

OTB5 


;SCREEN 


EF8F-2001 




DB 


20H,OTB5 


-$-1 


EF91 EB 




XCHG 






EF92 CDB9EF 


OTB5: 


CALL 


RED16 




EF95 EB 




XCHG 






EF96 CDC9EF 




CALL 


WRT16 




EF99 Fl 




POP 
JRZ 


PSW 
OTB6 




EF9A+2801 




DB 


28H,OTB6 


-$-1 
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EP9C EB 




XCHG 




EF9D 1600 


0TB6: 


MVI 


D,0 ;COLUMN 0-15 


EF9F 7B 




MOV 


A,E ;SCAN PAIRS 0-4 


EFAO C620 




AOI 


20H 


EFA2 5F 




MOV 


E,A 


EFA3 CI 




POP 


B 






DJNZ 


OTB 1 


EFA4+10E5 




DB 


10H,OTBl-$-l 


EFA6 7B 




MOV 


A,E 


EFA7 C602 




AOI 


2 


EFA9 E61F 




ANI 


1FH 


EFAB 5F 




MOV 


S,A 


EFAC C8 




R2 




EFAD FE1C 




CPI 


1CH 


EFAF 2600 




MVI 


H,0 






SETB 


5,L ;READ CHARACTERS 


EFB1+CBED 




DB 


0CBH,5»8-L*0C0H 






JRNZ 


OTB4 


EFB3+20D4 




DB 


20H,OTB4-$-l 


EFBS 2E17 


0TB2: 


MVI 


L,17H 






JR 


OTB3 * 


EFB7+18C9 


• 


DB 


18H,OTB3-$-l 


EFB9 05 


• 

RED16: 


PUSH 


D 


EFBA CDD9EF 




CALL 


SETBUF 


EFBD C5 


REDl: 


PUSH 


B 


EFBE 44 




MOV 


B,H 






INP 


A 


EFBF+ED78 




DB 


0EDH,A«8*40H 


EFC1 12 




ST AX 


D 


EFC2 24 




INR 


H 


EFC3 13 




INX 


D 


EFC4 CI 




POP 


B 






DJNZ 


REDl 


EFC5-10F6 




DB 


10H,REDl-$-l 


EFC7 Dl 




POP 


D 


EFC8 C9 




RET 




EFC9 D5 


WRT16: 


PUSH 


D 


EFCA CDD9EF 




CALL 


SETBUF 


EFCD C5 


WRTl: 


PUSH 


B 


EFCE 44 




MOV 


B,H 


EFCF 1A 




LDAX 


D 






OUTP 


A 


EFD0+ED79 




DB 


0EDH,A«8+41H 


EFD2 24 




INR 


H 


EFD3 13 




INX 


D 


EFD4 CI 




POP 


B 






DJNZ 


WRTl 


EFD5+10F6 




DB 


10H,WRTl-$-l 


EFD7 Dl 




POP 


D 


EFD8 C9 




RET 




EFD9 11B1FD 


SETBUF: 


LXI 


D3YTBUF 


EFDC 0610 




MVI 


B,16 



CP/M MACRO ASSEM 2.0 #106 ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 



EFDE 7D 




MOV 


A,L 


EFDF D3EE 




OUT 


SDSPY 


EFE1 OEFE 




MVI 


CDDSPY 


EFE3 C9 




RET 




EFE4 4E 


VALMSG; 


: MOV 


CM ;OUTPUT CHARACTERS TO SCREE 






BIT 


7,C 


EFE5+CB79 




DB 


0CBH,7»8+C*40H 






RES 


7,C ;LAST CHARACTER HAS BIT 7-1 


EFE7+CBB9 




DB 


0CBH,7*8*C*80H 


EFE9 23 




INX 


H 


EFEA C2B5E1 




JNZ 


VALDSP 


EFED CDB5E1 




CALL 


VALDSP 






JR 


VALMSG 


EFF0+18F2 




DB 


18H,VALMSG-S-1 


EFF2 3A50FA 


BELDSP: 


: LDA 


CURBEL ;SET HL TO CURSOR POSITION 


EFF5 E601 




ANI 


1 


EFF7 213769 




LXI 


H,6937H ;DE POINTS TO BELL TABLE 


EFFA 1108F6 




LXI 


D,BELTBL 






JR 


BAUD1 


EFFD+181C 




DB 


18H,BAUDl-$-l 


EFFF 3A4EFA 


KEYDSP: 


LDA 


TONTYP 


F002 213746 




LXI 


H,4637H ;DE POINTS TO CLICK TABBBLE 


F005 110DF6 




LXI 


D,KNMTBL 






JR 


BAUD1 


F008+1811 




DB 


18H,BAUDl-$-l 


FOOA CD5DF2 


COMUP: 


CALL 


REDCOM ; GET COMM. BAUD RATE 


FOOD 213751 




LXI 


H,5137H ;DE POINTS TO BAUD TABLE 






JR 


BAUDO 


F010+1806 




DB 


18H,BAUD0-s3-l 


F012 CD61F2 


PNTUP: 


CALL 


REDPNT ; GET PRINTER BAUD RATE 


F015 213760 




LXI 


H,6037H ;DE POINTS TO BAUD TABLE 


F018 11D1F5 


BAUOO: 


LXI 


D,BNMTBL 


F01B B7 


BAUOl: 


ORA 


A 


F01C F5 




PUSH 


PSW 


F01D CD2FF0 




CALL 


POSCUR ^POSITION CURSOR 


F020 Fl 




POP 


PSW 






JRZ 


BAUD2 


F021+2804 




DB 


28H,BAUD2-$-l 


F023 47 




MOV 


B,A ;ADD INDEX TO TABLE POINTER 


F024 07 




RLC 




F025 07 




RLC 




F026 80 




ADD 


B 


F027 4F 


BAUD2: 


MOV 


C,A 


F028 0600 




MVI 


B,0 


F02A EB 




XCHG 




F02B 09 




DAD 


B 


F02C C3E4EF 




JMP 


VALMSG ;DISPLAY CURRENT PARAMETER 




POSCUR: 


SETB 


7,H POSITION CURSOR TO 


F02F+CBFC 




DB 


0CBH,7*8+H*-0C0H 


F031 2272P8 




SHLD 


POSITN 
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P034 2170F8 




LXI 


H,GOPOS 


F037 C3E4EF 




JMP 


VALMSG 


F03A 3A51FA 


VOLDSP: 


LOA 


VOLEVL 


F03D 21373F 




LXI 


H,3F37H ;DISPLAY CURRENT VOLUME 


F040 CD2FF0 




CALL 


POSCUR 






JR 


BTDSPl 


F043+1609 




DB 


18H,BTDSPl-$-l 


F04S 3A4FFA 


BRTDSP: 


LOA 


BRTLEV 


F04S 213734 




LXI 


H,3437H ;POSITION CURSOR 


F04B CD2FF0 




CALL 


POSCUR 


F04E 3C 


BTDSPl: 


INR 


A ;CONVERT NUMBER IN A 


F04F 0E30 




MVI 


C30H 


F0S1 D60A 


BTDSP2: 


SUI 


OAH ;TO ASCII 


F053 FA59F0 




JM 


BTDSP3 


F056 OC 




INR 


C ;MOST SIGNIFICANT DIGIT IN C 






JR 


BTDSP2 


F057+18F8 




DB 


18H,BTDSP2-$-l 


F059 C63A 


BTDSP3: 


ADI 


3AH ;LEAST SIGNIFICANT DIGIT IN A 


F05B 47 




MOV 


B,A 


F05C 79 




MOV 


AX ;IN MSD IS 


F05O FE30 




CPI 


30H ;THEN SUPRESS IT 






JRNZ 


BTDSP4 


F05F+2002 




DB 


20H,BTDSP4-$-l 


F061 0B20 




MVI 


C20H 


F063 CDB5E1 


BTDSP4: 


CALL 


VALDSP ;DISPLAY 


F066 48 




MOV 


C,B 


F067 C3BSE1 




JMP 


VALDSP 
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NOTICE 

Code from address F067 through F205 has been intentionally 
omitted. This is the Valet code, which is proprietary to 
Otrona Advanced Systems Corporation. This code will not 
be required by anyone wishing to understand the operation 
of the Attache BIOS. 



CP/M MACRO ASSBM 2.0 #113 ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 



CLOCK AND BACKUP RAM I/O ROUTINES 



P206 324PPA 


wrtbrt: sta 


BRTLEV 


F209 P5 


PUSH 


PSW 


P20A 07 


RLC 




P20B 07 


RLC 




F20C 07 


RLC 




F20D 07 


RLC 




P20E 060A 


MVI 


B,0AH 


P210 CD3AP2 


CALL 


WR5101 


F213 PI 


POP 


PSW 


P214 060B 


MVI 


B,0BH 




JR 


WR5101 


F216+1S22 


DB 


18H,WR5101-S-1 


F218 3250PA 


WRTBEL: STA 


CURBEL 


P21B 0605 


MVI 


B,5 




JR 


WR5101 


F21D+181B 


DB 


18H,WR510l«*-l 


P21P 3251PA 


WRTVOL: STA 


VOLEVL 


P222 0606 


MVI 


B,6 




JR 


WRS101 


F224+1814 


DB 

• 


18H,WR5101-$-l 


P226 324BFA 


WRTTON: STA 


TONTYP 


P229 0609 


MVI 


B,9 




JR 


WR5101 


P22B+180D 


DB 


18H,WR5101-$-l 


P22D 0607 


WRTPNT: MVI 


B,7 




JR 


WRS101 


F22F+1809 


DB 


18H,WR5101-S-1 


P231 0608 


WRTCOM: MVI 


B,8 




JR 


WR5101 


P233+1805 


DB 


18H,WR5101-$-l 


F235 3252FA 


WRTSLK: STA 


SHLOCK 


P238 060E 


MVI 


B,0EH 


P23A CDA8P2 


WR5101: CALL 


SU5101 


F23D AF 


XRA 


A 


F23E CD90F2 


CALL 


RWPORT 


F241 7A 


MOV 


A,D 


P242 D3P8 


OUT 


DPIOA 


P244 OEFA 


MVI 


CDPIOB 


P246 7B 


MOV 


A,B 


P247 F6B0 


ORI 


OBOH 


P249 C39AP2 


JMP 


WCOMON 


F24C CDB5F2 


W58174: CALL 


PACK 
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F24F 57 




MOV 


D,A 


F250 AF 




XRA 


A 


F251 CD90F2 




CALL 


RWPORT 


F254 7A 




MOV 


A,D 


F255 D3F8 




OUT 


DPIOA 


F257 OEFA 




MVI 


CDPIOB 


F259 3EA8 




MVI 


A,0A8H 






JR 


WCOMON 


F25B+183D 




DB 


18H,WCOMON-S-l 


F25D 0606 


redcom: 


MVI 


B,8 






JR 


RD5101 


F25F+1802 




DB 


18H,RD5101-S-1 


F261 0607 


redpnt: 


MVI 


B,7 


F263 CDA8F2 . 


RD5101: 


CALL 


, SU5101 


F266 3B0F 




MVI 


A,0FH 


F268 CD90F2 




CALL 


RWPORT 


F26B 7A 




MOV 


A,D 


F26C D3F8 




OUT 


DPIOA 


F26E OEFA 




MVI 


CDPIOB 


F270 7B 




MOV 


A,E 


F271 F6B4 




ORI 


0B4H 






JR 


RCOMON 


F273+1810 




DB 


18H,RCOMON-$-l 


F275 CDB5F2 


R58174: 


CALL 


PACK 


F278 57 




MOV 


D,A 


F279 3E0F 




MVI 


A,0FH 


F27B CD90F2 




CALL 


RWPORT 


F27E 7A 




MOV 


A,D 


F27F D3P8 




OUT 


DPIOA 


F281 OEFA 




MVI 


CDPIOB 


F283 3EAC 




MVI 


A,0ACH 




RCOMON: 


OUTP 


A 


F285+ED79 




DB 


0EDH,A«8*41H 


F287 E6DF 




ANI 


ODFH 






OUTP 


A 


F289+ED79 




DB 


0EDH,A*8+41H 


F28B DBF8 




IN 


DPIOA 


P28D 47 




MOV 


B,A 






JR 


DSLC 


F28E+1810 




DB 


18H,DSLC-S-1 


F290 0EF9 


RWPORT: 


MVI 


CSPIOA 


F292 06CF 




MVI 


B,0CFH 


F294 F3 




DI 








OUTP 


B 


F295+ED41 




DB 


0EDH,B»8+41H 






OUTP 


A 


F297*ED79 




DB 


0EDH,A«8*41H 


F299 C9 




RET 






wcomon: 


OUTP 


A 
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F29A*BD79 
F29C B6DP 

F29B+BD79 
F2A0 3EA0 

F2A2+ED79 
F2A4 78 
F2A5 B60F 
F2A7 C9 

F2A8 CDBSF2 
F2AB 57 
F2AC 79 
F2AD B630 
F2AF OF 
F2B0 OF 
F2B1 OF 
F2B2 OF 
F2B3 5F 
F2B4 C9 



F2B5 
F2B6 
F2B8 
F2B9 
F2BA 
F2BC 
F2BO 
F2BE 
F2BF 
F2C0 
F2C1 



48 

E60F 

57 

78 

B60F 

07 

07 

07 

07 

B2 

C9 



DSLC: 



SU5101: 



PACK: 



DB 


0BDH,A«8+41H 


ANI 


ODFH 


OUTP 


A 


DB 


0EDH,A«8+41H 


MVI 


A,0A0H 


OUTP 


A 


DB 


0EDH,A»8+41H 


MOV 


A3 


ANI 


OFH 


RET 




CALL 


PACK 


MOV 


D,A 


MOV 


AX 


ANI 


30H 


RRC 




RRC 




RRC 


"* 


RRC 




MOV 


E,A 


RET 




MOV 


C3 


ANI 


OFH 


MOV 


D,A 


MOV 


A3 


ANI 


OFH 


RLC 




RLC 




RLC 




RLC 




ORA 


D 


RET 
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F2C2+ED73 
F2C4+49PA 
F2C6 31C2FF 
F2C9 E5 
F2CA D5 
P2CB C5 
F2CC F5 



60 HZ INTERRUPT ROUTINE 



60 HZ INTERRUPT 



SRV60: 



SSPD 


TEMSTK 


OB 


0EDH/73H 


DW 


TEMSTK 


LXI 


SP,INTSTK 


PUSH 


H ;SAVE REGISTERS 


PUSH 


D 


PUSH 


B. 


PUSH 


PSW 



•*fr 


;l CHECK KEYCLICK SHUTDOWN 1 


F2CD 2131F6 


LXI 


H,TONPER 


F2D0 7E 


MOV 


A,M 


F2D1 B7 


ORA 


A 




JRZ 


SRV60A 


F2D2+2807 


DB 


28H,SRV60A-$-l 


F2D4 35 


DCR 


M 




JRNZ 


SRV60A 


F2D5+2004 


DB 


20H,SRV60A-S-1 


F2D7 23 


INX 


H 


F2D8 CD78E1 


CALL 


SOUND 




'1 HANDLE 


KEYBOARD i 


F2DB DBFA f 


3RV60A: IN 


DPIOB ;CHECK FOR KEY 




BIT 


6, A 


F2DD+CB77 


DB 


0CBH,6«8*A*40H 


F2DF CA46F4 


JZ 


CHKALM ; NO KEY PRESENT 


F2E2 2A84DA 


LHLD 


CLIKAD ;SOUND THE KEY 


F2E5 CD78E1 


CALL 


SOUND 


F2E8 0609 


MVI 


B,9 


F2EA DBFA 5 


JRV60B: IN 


DPIOB ;BIT INTO CARRY 


F2EC 07 


RLC 




F2ED 07 


RLC 




F2EE 3F 


CMC 






RARR 


L 


F2EF+CB1D 


DB 


OCBH, 18H ♦ L 


F2F1 3E7F 


MVI 


A/7FH ;CLOCK DOWN 


F2F3 D3FA 


OUT 


DPIOB 


F2F5 3EFF 


MVI 


A,0FFH ;CLOCK UP 


F2F7 D3FA 


OUT 


DPIOB 




DJNZ 


SRV60B 


F2F9-10EF 


DB 


10H,SRV60B-S-1 




I TRANSLATE KEYCODE 1 
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MVI 


H,0 


MOV 


C,L 


LXI 


D,KBYTBL 


DAD 


D 


MOV 


B,M 



EVALUATE KEYCODE 



F303 3A80DA 




LDA 


WSFLAG 


F306 B7 




ORA 


A 






JRZ 


CHKCTL ; NOT IN WORDSTAR 


F307*2825 




DB 


28H,CHKCTL-S-1 






CHANGE 


NORMAL CODES TO WS CODES 


F309 79 




MOV 


AX 


F30A FEFE 




CPI 


OFEH 






JRNZ 


WSCODl 


F30C+2002 




DB 


20H,WSCQD1-S-1 


F30E 0666 




MVI 


B,86H 


F310 FE50 


WSCODl: 


CPI 


50H 






JRNZ 


WSCOD2 


F312+2002 




DB 


20H,WSCQD2-S-1 


F314 06A8 




MVI 


B,0A6H 


F316 FE8C 


WSCOD2: 


CPI 


6CH 






JRNZ 


WSCOD3 


F318*2002 




DB 


20H.WSCOD3-S-1 


F31A 0613 




MVI 


B,13H 


F31C FE8D 


WSCOD3: 


CPI 


8DH 






JRNZ 


WSCOD4 


F31E+2002 




DB 


20H,WSCOD4°-S-1 ° 


F320 0604 




MVI 


B,4 


F322 FE8E 


WSC0D4: 


CPI 


8EH 






JRNZ 


WSCOD5 


F324+2002 




DB 


20H,WSCOD5-S-1 


F326 0605 




MVI 


B,5 


F328 FE8F 


WSCOD5: 


CPI 


8FH 






JRNZ 


CHKCTL 


F32A+2002 




DB 


20H,CHKCTL-S-1 


F32C 0618 




MVI 


B,18H 






CONTROL 


CODE ? 




CHKCTLt 


BIT 


7,B 


F32E+CB78 




DB 


0CBH.7»8+B*40H 






JRNZ 


CHKSPL ; CONTROL CODE 


F330+202F 




DB 


20H,CHKSPL-S-1 






KEYPAD 


MODE ? 


F332 3AAFDA 




LDA 


NUMFLG 


F335 B7 




ORA 


A 
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F336+2814 



JRZ CHKCAP : NOT 10 KEY PAD 
DB 28H,CHKCAP-$-l 



I 10 KEY PAD TRANSLATION 



F338 79 


MOV 


AX 


P339 D69B 


SUI 


9BH 


F33B FA4CF3 


JM 


CHKCAP 


F33E FE1B 


CPI 


1BH 




JRNC 


CHKCAP 


F340+300A 


DB 


30H,CHKCAP-$-l 


F342 2194F7 


LXI 


H,PADTBL 


F345 5F 


MOV 


E,A 


F346 1600 


MVI 


D,0 


F348 19 


DAD 


D 


F349 7E 


MOV 


A,M 




JR 


NOCAP 


F34A+1812 


DB 


18H,NOCAP-$-l 



NOT A CONTROL CHARACTER 



F34C 3A52FA 


CHKCAP: LDA 


SHLOCK ,-CAPI' 


F34F B7 


ORA 


A 


F350 78 


MOV 


A3 




JRZ 


NOCAP 


F351+280B 


DB 


28H,NOCAP-S-l 



CAPITALIZE IF NEEDED 



I CAPITALIZE IF SHIFT LOCKED I 



F353 FE61 




CPI 


61H ;AFTER SMALL- A? 






JRC 


NOCAP 


F355+3807 




DB 


38H,NOCAP-S-l 


F357 FE7B 




CPI 


7BH ;BEFORE SMALL-Z? 


F359 F25EF3 




JP 


NOCAP 


F35C E6DF 




ANI 


ODFH ^CAPITALIZE 


F35E C343F4 


NOCAP: 


JMP 


GOADDK ;ADD TO BUFFER 



HANDLE CONTROL CODES 



HANDLE KEYPAD KEY 



F361 78 


chkspl: 


MOV 


A3 


F362 FEFD 




CPI 


OFDH 






JRNZ 


CKSPL3 


F364+2012 




DB 


20H,CKSPL3-$-l 


F366 3AAFDA 




LDA 


NUMFLG 


F369 B7 




ORA 


A 






JRZ 


CKSPL2 


F36A+2806 




DB 


28H,CKSPL2-S-1 


F36C 2F 


ckspli: 


CMA 
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F36D 32AFDA 




STA 


NUMFLG 






JR 


CKSPL4 


F370+1815 




DB 


18H,CKSPL4-$-l 


F372 AF 


CKSPL2: 


XRA 


A 


F373 3252FA 




STA 


SHLOCK 






JR 


CKSPL1 


F376*18F4 




DB 


18H,CKSPL1-S-1 






HANDLE 


CAPS LOCK KEY 


F378 FBFE 


CKSPL3J 


CPI 


OFBH 






JRNZ 


CKVLKY 


F37A*2013 




DB 


20H,CKVLKY-S-1 


F37C AF 




XRA 


A 


F37D 32AFDA 




STA 


NUMFLG 


P380 3A52FA 




LDA 


SHLOCK 


F383 2F 




CMA 




F384 3252FA 




STA 


SHLOCK 


F387 060E 


CKSPL4: 


MVI 


B,0EH 


F389 CD3AF2 




CALL 


WR5101 


F38C C346F4 




JMP 


CHKALM 






HANDLE 


SET-UP KEY 


F38F FEFF 


CKVLKY: 


CPI 


OFFH 






JRNZ 


ALMDLY 


F391+202F 




DB 


20H,ALMDLY-S-1 


F393 3A53FA 


CKVLKl: 


LDA 


NOKEY 


F396 B7 




ORA 


A ; IF IN VALET OVERLAY 


F397 C2BIF4 




JNZ 


CHKMTR ; THEN IGNORE CTRL/ESC 


F39A 3A81DA 




LDA 


VALSTP ; ELSE 


F39D 47 




MOV 


B,A ; IF NOT IN W OR C BOOT OR DISK OPERATION 


F39E 3A82DA 




LDA 


DSKFLG • OR DISPLAY DRIVER 


F3A1 BO 




ORA 


B 


F3A2 47 




MOV 


B,A 


F3A3 3AA5DA 




LDA 


DSPFLG 


F3A6 BO 




ORA 


B 






JRZ 


DOVLKY 


F3A7+2808 




DB 


28H,DOVLKY-S-l 


F3A9 3EFF 


» 


MVI 


A,0FFH ; ELSE SET VALET PENDING FLAG TO WAIT 


F3AB 3283DA 




STA 


VALPND ; FOR OK TIME TO ENTER OR EXIT VALET 


F3AE C3B1F4 




JMP 


CHKMTR 


F3B1 3AFCF9 


dovlky: 


LDA 


SETFLG 


F3B4 2F 




CMA 




F3B5 32FCF9 




STA 


SETFLG 


F3B8 B7 




ORA 


A 


F3B9 CA43F4 




JZ 


GOADDK 


F3BC CD4EED 




CALL 


RSTALM 


F3BF C3BAEC 




JMP 


VALCHK 



ALARM DELAY (5 MINUTES) 



F3C2 FEFC 



ALMDLY: CPI 

JRNZ 



OFCH 
CHKBRK 
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F3C4+200D 


DB 


20H,CHKBRK-S-1 


F3C6 3EFF 


MVI 


A,0FFH 


F3C8 32A6DA 


STA 


ALMWAT 


F3CB 217DF6 


LXI 


H,BELLTN 


F3CE CD78E1 


CALL 


SOUND 




JR 


CHKALM 


F3D1+1873 


OB 


18HXHKALM-S-1 




; ALL OTHER CONTROL CHARACTERS 


F3D3 FEFB 


dhkbrk: cpi 


OFBH 




JRHZ 


CKWSFL 


F3D5+201B 


OB 


20H,CKWSFL-$-l 


F3D7 3E05 


MVI 


A,5 


F3D9 D3F1 


OUT 


SCOMM 


F3DB DBF1 


IN 


SCOMM 


F3DD F610 


ORI 


10H 


F3DF 323DFA 


STA 


BRKSAV 


F3E2 3E05 


MVI 


A,5 


F3E4 D3F1 


OUT 


SCOMM 


F3E6 3A3DFA 


LOA 


BRKSAV 


F3E9 D3F1 


OUT 


SCOMM 


F3EB 3E78 


MVI 


A, 120 


F3ED 32FEF9 


STA 


BRKCNT 




JR 


CHKALM 


F3F0+1854 


DB 


18H,CHKALM-$-l 


F3F2 47 CKWSFL: MOV 


B,A 


F3F3 3A80DA 


LDA 


WSFLAG 


F3F6 B7 


ORA 


A ; IF NOT IN WS 


F3F7 78 


MOV 


A,B 




JRZ 


GOADDK • THEN DON'T D 


F3F8*2849 


DB 


28H,GOADDK-$-l 




WORDSTAR SPECIAL TRANSLATION 


F3FA 322AFA 


STA 


CTLCOD ; ELSE XLATE 


F3FD E660 


ANI 


6 OH ; WHICH PREFIX? 




JRNZ 


WSCOD7 


F3FF+2007 


DB 


20H,WSCOD7-$-l 


F401 3E11 


MVI 


A,CTRLQ ;CTRL-0 


F403 CD37F4 U 


SCOD6: CALL 


WSCODB 




JR 


CHKALM 


F406+183E 


DB 


18H,CHKALM-$-l 


F408 FE20 Vi 


ISCOD7: CPI 


20H 




JRNZ 


WSCOD8 


F40A+200D 


DB 


20H,WSCOD8-$-l 


F40C 3E0B 


MVI 


A,CTRLK ;CTRL-K 


F40E CD37F4 


CALL 


WSCODB 


F411 FE13 


CPI 


CTRLS *■ 




JRNZ 


CHKALM 


F413+2031 


DB 


20H,CHKALM-$-l 


F415 3E90 


MVI 


A,CTRLQP ;CTRL-KSQP 




JR 


CKWSFL 


F417+18D9 


DB 


18H,CKWSFL-$-l 
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F419 PE40 


WSC008: 


CPI 
JRNZ 


40H 
CHKALM 




F41B+2029 




OB 


20H,CHKALM-S-1 




F41D 3A2AFA 




LDA 


CTLCOD ;CTRL-J, 0, 


OR P 


F420 FEC8 




CPI 
JRNZ 


CTRLJH 
WSC0D9 




F422+2004 




DB 


20H,WSCOD9-S-1 




F424 3B0A 




MVI 
JR 


AXTRLJ ;CTRL-JH 
WSC0D6 




F426+18DB 




OB 


18H,WSC0D6-$-l 




F428 FED3 


WSC009: 


CPI 
JRNZ 


CTRLPS 
WSCODA 




F42A+2004 




OB 


20H,WSCODA-S-1 




F42C 3E10 




MVI 
JR 


A,CTRLP ;CTRL-PS 
WSC0D6 




F42E+18D3 




DB 


18H,WSC0D6-S-1 




F430 3E0F 


wscoda: 


MVI 


A,CTRLO ;CTRL-0 




F432 CD37F4 




CALL 
JR 


WSCODB 
CHKALM 




F435+180F 




DB 


18H,CHKALM-S-1 




F437 CD67F5 


wscoob: 


CALL 


ADDKEY 




F43A 3A2AFA 




LDA 


CTLCOD 




F43D E61F 




ANI 


1FH 




F43F CD67F5 




CALL 


ADDKEY 




F442 C9 




RET 






F443 CD67F5 


GOADDK: 


CALL 


ADDKEY 





CHECK ALARMS 



I— 



F446 2AA9DA 


CHKALM: 


LHLD 


ALMFLG 


F449 2B 




DCX 


H 


F44A 22A9DA 




SHLD 


ALMFLG 


F44D 7C 




MOV 


AfH 


F44E B5 




ORA 


L 






JRNZ 


VALP 


F44F+204C 




DB 


20H,VALP-$-l 


F451 3AA7DA 


t 


LDA 


ALMCNT ; SEE IF ALMCNT SHOULD BE RESET 






BIT 


6, A 


F454+CB77 




DB 


0CBH,6»8+A*4QH 


F456 CC4EED 




CZ 


RSTALM 


F459 060F 


r 


MVI 


B,OFH ; CMOS RAM MONTH 


F45B CD63F2 




CALL 


RD5101* 


F45E FEOF 




CPI 


OFH 






JRZ 


VALP 


F460*283B 




DB 


28H,VALP-S-1 


F462 F5 




PUSH 


PSW 


F463 CD54E7 




CALL 


READAT 
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F466 FE3F 


CPI 


'?' 




F468 CI 


POP 


B 






JRZ 


VALP 




F469+2832 


DB 


28H,VALP-$-l 




F46B 21AEFB 


LXI 


H,MINS10 




F46E 7E 


MOV 


A,M ; 10'S 


OF MONTH 


F46F E60F 


ANI 


OFH 




F471 2B 


DCX 


H 




F472 7E 


MOV 


A,M ;UNITS 


OF MONTH 




JRZ 


CKALMl 




F473+2802 


DB 


28H,CKALM1-S-1 




F475 C60A 


ADI 


OAH 




F477 E60F 


CKALMl: ANI 


OFH 




F479 B8 


CMP 


B 






JRZ 


CKALM2 




F47A+2805 


DB 


28H,CKALM2-S-1 




F47C D214F5 


JNC 


ALARM , 






JR 


VALP 




F47F+181C 


DB 


18H,VALP-$-l 




F481 2B 


CKALM2: DCX 


H 




F462 011210 


LXI 


B,1012H ; CMOS 


RAM DAY 10 


F485 CD57F5 


CALL 


CHKMOS 




F4S8 DA14F5 


JC 


ALARM 






JRNZ 


VALP 




F48B+2010 


DB 


20H,VALP-$-l 




F48D CD2EE7 


CALL 


READTM 




F490 011612 


LXI 


B,1216H ; CMOS 


RAM HRS. 6 


F493 21B0FB 


LXI 


H,HRS10 




F496 CD57F5 


CALL 


CHKMOS 






JRZ 


ALARM 




F499+2879 


DB 


28H,ALARM-$-l 






JRC 


ALARM 




F49B+3877 


DB 


38H,ALARM-$-l 





F49D 3A83DA 
F4A0 B7 
F4A1 C293F3 



F4A4 3A87DA 
F4A7 B7 

F4A8+2807 
F4AA AF 
F4AB 32AEDA 
F4AE 3287DA 



MINS. 



VALET PENDING 



VALP: LDA VALPND 

ORA A 

JNZ CKVLK1 

DISPLAY TIME AND DATE ? 



LDA 


VALTIM 


ORA 


A 


JRZ 


CHKMTR 


DB 


28H,CHKMTR-S-1 


XRA 


A 


STA 


TIMFLG 


STA 


VALTIM 



1 

FLOPPY MOTOR SHUT-DOWN 
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F4B1 2A6DFA 


CHKMTR: 


LHLO 


F4B4 7C 




MOV 


F4B5 B5 




ORA 
JRNZ 


F4B6+2QQ6 




OB 


F4B6 3EFE 




MVI 


F4BA CD27B1 




CALL 


F4BD 23 




INX 


F4BE 2B 


CKMTRl: 


OCX 


F4BF 2260FA 




SHLO 



MTRCNT ;GET MOTOR TIMER 
A,H ;TEST FOR ZERO 

L 

CKMTRl ;IF <>0 ,THEN DECREMENT 
20H,CKMTR1-S-1 

A, -2 ; (2 BIT ALREADY SET) 

LLATCH ; ELSE SHUT OFF MOTORS 
H 
H 
MTRCNT 



HANDLE DISK TIME OUT 



F4C2 3AA9FB 


LDA 


DSKCNT 


F4C5 B7 


ORA 


A 




JRZ 


BREAK ; DSKCNT ALREADY = 


F4C6+282A 


DB 


28H,BREAK-S-1 


F4C8 3D 


OCR 


A 


F4C9 32A9FB 


STA 


DSKCNT 




JRNZ 


BREAK ; DSKCNT <> 


F4CC+2024 


DB 


20H,BREAK-S-1 


F4CE 3A7CFB 


LDA 


DSKCYC 


F4D1 FE08 


CPI 


8 ; IF NOT WAITING FOR READY 




JRNZ 


TIMOUT ; THEN ERROR 


F4D3+2012 


DB 


20H,TIMOUT-$-l 


F4D5 CDB5DE 


CALL 


SNSTAT : ELSE SENSE DRIVE STATUS 




BIT 


5, A ; IF DRIVE NOT OK 


F4D8+CB6F 


DB 


0CBH,5»8+A*40H 


F4DA CA13E0 


JZ 


WFRBAD ; THEN WAITING FOR READY E 


F4DD 214EF8 


LXI 


H,RCLTBL; ELSE START 1ST RECAL 


F4E0 3E04 


MVI 


A, 4 ; NEW DSKCYC = 4 


F4E2 CDBCDE 


CALL 


DORCSK 




JR 


BREAK 


F4E5+180B 


DB 

• 
* 


18H,BREAK-S-1 


F4E7 CDABDE 


TIMOUT: CALL 


CLRFDC • -ALL OTHER TIMEOUT ERRORS 


F4EA 3A7CFB 


LDA 


DSKCYC ; CLEAR OUT FDC 


F4ED F6C0 


ORI 


OCOH ; DSKCYC OR WITH OCOH 


F4EF 327CFB 


STA 


DSKCYC 


F4F2 3AFEF9 


BREAK: LDA 


BRKCNT 


F4F5 B7 


ORA 


A 




JRZ 


IEND 


F4F6*2811 


DB 


28HJEND-S-1 


F4F8 3D 


OCR 


A 


F4F9 32FEF9 


STA 


BRKCNT 




JRNZ 


IEND 


F4PC+200B 


DB 


20HJEND-S-1 


F4FE 3B05 


MVI 


A, 5 


F50O D3F1 


OUT 


SCOMM 


F502 3A3DFA 


LDA 


BRKSAV 


F505 E6BF 


ANI 


OEFH 
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F509 Fl 
F50A CI 
F50B Dl 
F50C El 

F50D+ED7B 
F50F+49FA 
F511 FB 

F512+ED4D 



EXIT SRV60 (ALSO USED BY SRVFPY) 



IEND: 



POP 


PSW 


POP 


B 


POP 


D 


POP 


H 


LSPD 


TEMSTK 


DB 


0EDH,07BH 


DW 


TEMSTK 


EI 




RETI 




DB 


0EDH,4DH 



PAGE 



CP/M MACRO ASSBM 2.0 



#125 



ATTACHE BIOS & BOOT; COPYRIGHT 1981, OTRONA CORP. 



MISC. SRV60 SUBROUTINES 



SOUND VALET ALARM 



F514 3AA7DA 


ALARM: 


LOA 


ALMCNT 


F517 F640 




ORI 


40H 


F519 FE4Q 




CPI 


4 OH 






JRNZ 


ALJ3 


F51B+201A 




DB 


20H,ALJ3-S-1 


F510 21A6DA 




LXI 


H,ALMWAT 


F520 3600 




MVI 


M,0 


F522 3C 


aljo: 


INR 


A 


F523 217800 




LXI 


H,120 


F526 CD52ED 


ALJl: 


CALL 


RSTAL2 


F529 3E21 




MVI 


A/!' 


F52B 32860A 




STA 


VALCMD 


F52E 2126F6 


ALJ2: 


LXI 


H,ALMSND 


F531 CD78E1 




CALL 


SOUND 


F534 C39DF4 




JMP 


VALP 


F537 FE42 


ALJ3: 


CPI 


42H 






JRC 


ALJO 


F539+38E7 




OB 


38H,ALJ0-S~1 


F53B 3AA60A 


»» 


LOA 


ALMWAT 


F53E B7 




ORA 


A 






JRNZ 


ALJ4 


F53F+2010 




DB 


20H,ALJ4-S-1 


F541 0617 




MVI 


B,17H 


F543 CD63F2 




CALL 


RD5101 


F546 E602 




ANI 


2 






JRZ 


ALJ4 


F548+2807 




DB 


28H,ALJ4-$-l 


F54A 3EFF 




MVI 


A,OFFH 


F54C 3283DA 




STA 


VALPND 






JR 


ALJ2 


F54F+18DD 




OB 


18H,ALJ2-S-2 


F551 214038 


ALJ4: 


LXI 


H, 14400 


F554 7D 




MOV 


AX ; L=40H 






JR 


ALJl 


F555*18CF 




DB 


18H,ALJ1-S-1 



COMPARE CMOS RAM TIME WITH REAL TIME 



I——. 
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#126 
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F557 C5 


CHKMOS: 


PUSH 


B 


F558 CD63F2 




CALL 


RD5101 


F55B CI 




POP 


B 


F55C F630 




ORI 


30H 


P55E BE 




CMP 


M 


P55F 2B 




DCX 


H 


F560 CO 




RNZ 




F561 04 




INR 


B 


F562 78 




MOV 


A3 


F563 B9 




CMP 


C 






JRNZ 


CHKMOS 


F564+20F1 




DB 


20H,CHKMOS-$-l 


F566 C9 




RET 






;l ADD 


KEY. TO 


END, OF KEYBOARD BUFFER 1 


F567 47 


addkey: 


MOV 


B,A 


F568 3AFBF9 




LDA 


KEYCNT 


F56B FE10 




CPI 


KBUFLN ;IF BUFFER FULL 


F56D 217DF6 




LXI 


H,BELLTN 


F570 CA78E1 




JZ 


SOUND • SOUND BELL, BUFFER FULL 


F573 3C 




INR 


A ; ELSE ADD KEY 


F574 32FBF9 




STA 


KEYCNT 


F577 2A3BFA 




LHLD 


KEYPNT 


F57A 78 




MOV 


A,B 


F57B 77 




MOV 


M,A 


F57C 23 




INX 


H 


F57D 223BFA 




SHLD 


KEYPNT 


F580 C9 




RET 






1 PUSF 


I KEY(S) 


INTO KEYBOARD BUFER 1 


F581 C5 P 


•USHKY: 


PUSH 


B 


F582 E5 




PUSH 


H 


F583 F3 




DI 




F584 3AFBF9 




LDA 


KEYCNT 


F587 2A3BFA 




LHLD 


KEYPNT 


F58A 09 




DAD 


B 


F58B 81 




ADD 


C 


F58C FE11 




CPI 


KBUFLN* 1 






JRC 


PSHKYi 


F58E+380D 




DB 


38H,PSHKYl-$-l 


F590 217DF6 




LXI 


H3ELLTN 


F593 C5 




PUSH 


B 


F594 CD78B1 




CALL 


SOUND 


F597 CI 




POP 


B 


F598 213BFA 




LXI 


H,KEYBUF*16 


F59B 3E10 




MVI 


A, KBUFLN 


F59D 32FBF9 P 


SHKYl: 


STA 


KEYCNT 


F5A0 223BFA 




SHLD 


KEYPNT 


F5A3 3E10 




MVI 


A, 16 
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F5A5 91 


SUB 


C 


P5A6 213AFA 


LXI 


H,KEYBUF-15 


P5A9 E5 


PUSH 


H 




RLCR 


B 


F5AA+CB00 


DB 


OCBH, 00H ♦ B 




DSBC 


B 


F5AC+ED42 


DB 


0EDH,B«8+42H 


F5AE Dl 


POP 


D 


F5AF 4F 


MOV 
LOOR 


C,A 


F5B0+EDB8 


DB 


0EDH,0B8H 


F5B2 El 


POP 


H 


F5B3 CI 


POP 


B 


FSB4 112BFA 


LXI 
LDIR 


D,KEYBUF 


F5B7+EDB0 


DB 


0EDH,0B0H 


F5B9 FB 


EI 




F5BA C9 


RET 





;MOVE OLD CHARS. UP BY BC 



PAGE 
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BAUD TABLE 



F5BB 370D57AF57BTABL: 


DB 


37H,0DH,57H,0AFH,57H,8FH 


F5C1 5780574057 


DB 


57H,80H,57H,40H,57H,20H 


F5C7 5710570857 


OB 


57H,10H,57H,08H,57H,04H 


F5CD 57025701 


OB 


57H,02H,57H,01H 


F5D1 20202037B5BNMTBL: 


DB 


7V5'+80H 


F5D6 20203131B0 


DB 


' ll'/0'+80H 


F5DB 3133342EB5 


DB 


'134//5'*80H 


F5E0 20203135BO 


DB 


' 15'/0'+80H 


F5E5 20203330B0 


DB 


' 30'/0'*80H 


F5EA 20203630B0 


DB 


' 60'/0'*80H 


F5EF 2031.3230B0 


DB o 


' 120'/0'«-8QH 


F5F4 20323430BO 


DB 


' 240'/0'*80H 


F5F9 20343830B0 


DB. 


' 480'/0'+80H 


F5FE 20393630B0 


DB 


' 96O'/O'+60H 


F603 31393230B0 


DB 


'1920'/0'*80H 


F608 204F4E20A0BELTBL: 


DB 


' ON V '+80H 


F60D 204F4646A0KNMTBL: 


DB 


' OFF'/ '*80H 


F612 434C4943CB 


DB 


'CLIC'/K'*80H 


F617 2044494ECB 


DB 


' DIN'/K'+80H 


F61C 42454550B1 


DB 


'BEEP'/1'*80H 


F621 42454550B2 


DB 


'BBEP'/2'*80H 



SOUND TABLES 



;KEYCLICK 
F626 000320201FALMSND: DB 
F630 87 DB 



0,3,20H,20H,1FH,0,0,OF8H,0,41H 
87H 



F631 00 



TONPER: DB 



F632 
F641 
F64A 
F650 
F65A 
F65F 
F66A 
F66E 
F679 
F67D 
F687 



000000000FNOTONE: DB 
010400000FCLICK: DB 
471D20F6AF DB 
020200000FBEEP: DB 
3256203E25 DB 
020000000FHIDA: DB 
00000000 DB 

020000000FAUP3O: DB 
00000000 DB 

020200000FBELLTN: DB 
3256203E25 DB 



0,0,0, 0,OFH,0FH,0FH,OFFH, 0,0,0,0,0,0,0 
1,4,0,0,0FH,0FH,0FH,0,80H ;SNAPS 
47H,1DH,20H,OF6H,OAFH,OEDH 
2,2,0,0,OFH,OFH,OFH,32H,54H,20H ;SHORT DINK 
32H,56H,20H,3EH,25H 
2,0,0,0,0FH,0FH,OFH,0F8H,lFH,0,0FEH 
0,0,0,0 

2,0,0,0,OFH,OFH,OFH,OF8H,1FH,2,OFAH 
0,0,0,0 

2,2,0,0,OFH,OFH,OFH,32H,54H,20H • BELL TONE 
32H,56H,20H,3EH,25H 



I ALTERNATE CHARACTER SET TRANSLATION TABLE 



F68C 40 


CHRTBL: DB 


4 OH 


;0 = STANDARD SET 


F68D 00 


DB 


00H 


;1 * FORMS RULING 
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F68E 60 


OB 


F68F CO 


OB 


F690 00000000 


OB 



8 OH ;2 = GREEK & LANGUAGES 
OCOH ;3 - MATH & WORD PROCESSING 
0,0,0,0 



, _ 1 

I KEYCODE TRANSLATION TABLE (WORDSTAR VERSION) 



NO CTRL, SHIFT 



F694 08090A0000KEYTBL: DB 



F69C 


2000001B01 


DB 


F6A4 


5E21402324 


DB 


F6AC 


2829223A3C 


OB 


F6B4 


7E41424344 


DB 


F6BC 


46494A4B4C 


DB 


F6C4 


5051525354 


DB 


F6CC 


58595A7B7C 


DB 

a f"f>t 


F6D4 


08090A0000 


DB 


F6DC 


200000FF93 


DB 


F6E4 


1E85C8D3B3 


DB 


F6EC 


B6A3273B2C 


DB 


F6F4 


0001020304 


DB 


F6FC 


08090A0B0C 


DB 


F704 


1011121314 


DB 


F70C 


18191A1B1C 


DB 
NO 


F714 


08090A000O 


■> DB 


F71C 


2000001B06 


DB 


F724 


3031323334 


DB 


F72C 


3839273B2C 


DB 


F734 


6061626364 


DB 


F73C 


68696A6B6C 


OB 


F744 


7071727374 


DB 


F74C 


78797A5B5C 


DB 

fTD 


F754 


FC09FB0000' 


L IK 

DB 


F75C 


200000FF01 


DB 


F764 


CE110A0F10 


DB 


F76C 


D8C9273B2C 


DB 


F774 


0001020304 


DB 


F77C 


0S090A0B0C 


DB 


F784 


1011121314 


DB 


F78C 


18191A1B1C 


DB 



8,9,OAH,0,0,ODH,0,OFEH 

20H,0,0,1BH,1,6,1AH,17H 

5EH,21H,40H,23H,24H,25H,26H,2AH 

28H,29H,22H,3AH,3CH,2BH,3EH,3FH 

7EH,41H,42H,43H,44H,45H,46H,47H 

48H,49H,4AH,4BH,4CH,4DH,4EH,4FH 

50H,51H,52H,53H,54H,55H,56H,57H 



;BS TAB LF NA NA CR NA LOCK 

;SP NA NA ESC LFT RT UP DN 

;* EXCL 8#S%&» 

;()":<♦>? 

fABCDEFG 

;HIJKLHNO 

;PQRSTUVW 



58H,59H,5AH,7BH,7CH,7DH,5FH,7 ;XYZU}J3EL 



SHIFT 



8,9,0AH,0,0,0DH,0,0FDH ;BS TAB LF NA NA CR NA LOCK 

20H,0,0,0FFH,93H,84H,92H,83H ;SP NA NA ESC LFT RT UP DN 

1EH,85H,0C8H,0D3H,0B3H,0B0H,0A2H,0ABH ;* EXCL @#$%&* 
0B6H,0A3H,27H,3BH,2CH,OCH,2EH,2FH ;()":<♦>? 

0,1,2,3,4,5,6,7 ;CTRL-~ABCDEFG 

d^OAH.OBHtOCH^DHtOBH.OFH ;CTRL-HIJKLMNO 

10H,11H,12H,13H,14H,15H,16H,17H ;CTRL-PGRSTUVW 
18H,19H,1AH,1BH,1CH,1DH,0CH,19H ;CTRL-XYZ(I}_DEL 



SHIFT OR CTRL 



8,9,0AH,0,p,0DH,0,0FEH 

20H,0,0,1BH,8,OCH,OBH,OAH ;SP NA NA 

30H,31H,32H,33H,34H,35H,36H,37H ,-01234567 
38H,39H,27H,3BH,2CH,3DH,2EH,2FH ;89';,*./ 
60H,6 1H,62H,63H,64H,65H,66H,67H fABCDEFG 
68H,69H,6AH,6BH,6CH,6DH,6EH,6FH jHIJKLMNO 
70H,71H,72H,73H,74H,75H,76H,77H ;PQRSTUVW 
78H,79H,7AH,5BH,5CH,5DH,2DH,7FH ;XYZE\3-DEL 



;BS TAB LF NA NA CR NA LOCK 
ESC LFT RT UP DN 



CTRL, NO SHIFT 



0FCH,9,0FBH,0,0,0DH,0,0PDH ;BS TAB LF NA NA CR NA LOCK 

20H,0,0,0FFH,1,6,12H,3 ;SP NA NA ESC LFT RT W DN 

OCEH,11H,OAH,OFH,10H,OBH,16H,2 ;01234567 
0D8H,0C9H,27H,3BH,2CH,81H,2EH,2FH ;89';,=./ 
00,01,02,03,04,05,06,07 ;CTRL- X ABCDEPG 

O8,O9,0AH,0BH,0CH,ODH,OEH,OFH ;CTRL-HIJKLttNO 
10H,11H,12H,13H,14H,15H,16H,17H :CTRL-PGRSTUVW 
18H,19H,1AH,1BH,1CH,1DH,1FH,14H ;CTRL~XYZC\1-DEL 



KEYPAD TABLE 
F794 2A2C3D2E2FPADTBLS DB 2AH,2CH,3DH,2EH,2FH 



:*,=./ 
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F799 6061626364 DB 60H,61H,62H,63H,64H,65H,66H,67H ;*ABCDEFG 

F7A1 6835313233 DB 68H,35H,31H,32H,33H,30H,6EH,36H ;H51230N6 

F7A9 2B71727374 DB 2BH,71H,72H,73H,74H,34H ;*QRST4 
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, . 1 

I ESCAPE SEQUENCE VECTOR TABLE 
I . 1 



F7AF A1E3 


bsctbl: ow 


PPOINT 


F7B1 ACE3 


DW 


PVCTOR 


F7B3 C9E3 


DW 


BLKDRW 


F7B5 CDB3 


OW 


CLRGRF 


F7B7 D2B3 


DW 


BLXFIL 


F7B9 06E3 


DW 


SETMSK 


F7BB DBB3 


OW 


DSBGRF 


F7B0 E8B3 


DW 


BNBGRF 


F7BF BDB3 


DW 


PTBRT 


F7C1 F4B3 


DW 


PTDRK 


F7C3 F8E3 


DW 


REDDAT 


F7C5 0EB4 


DW 


CMOSPN 


F7C7 14E4 


DW 


CMOSCM 


F7C9 19B4 


DW 


DRCTMV 


F7CB 1DB4 


DW 


RBDTIM 


F7CD 33B4 


DW 


REDRAM 


F7CF 37B4 


DW 


WRTRAM 


F7D1 3BB4 


DW 


UPCUR 


F7D3 52B4 


DW 


DWNCUR 


F705 6BB4 


DW 


RITCUR 


F7D7 9CE2 


DW 


CTROL2+4 


F7D9 9BE3 


DW 


NFGESC 


F7DB 9BB3 


DW 


NFGESC 


F7DD 9BB3 


DW 


NFGESC 


F7DF 80E4 


DW 


HOMCUR 


F7E1 9BB4 


DW 


REVLF 


F7E3 AFE4 


DW 


CLREND 


F7E5 B5E4 


DW 


CLRELN 


F7E7 BAE4 


DW 


INSLIN ; 


F7E9 CBE4 


DW 


DELLIN 


F7EB DFE4 


DW 


SETTAB 


F7BD E3B4 


DW 


CLRTAB 


F7EF E9E4 


DW 


DELLCR 


F7F1 EEE4 


DW 


INSCON ; 


P7F3 F7E1 


DW 


BXIT2 


F7F5 F3E4 


DW 


CHRSIZ ; 


F7F7 F7B4 


DW 


CHRSET 


F7F9 FBE4 


DW 


SELATR 


F7FB FFE4 


DW 


SELDIN , 


F7FD 03E5 


DW 


DSPSND 


F7FF 07E5 


DW 


SETACR 


F801 19E4 


DW 


DRCTMV 


F803 0BE5 


DW 


RESPAR 


F80S 10E5 


DW 


SAVVPR 


F807 35E9 


DW 


CLSCRN , 


F809 15B5 


DW 


RCLPAR 


F80B 1EB5 


DW 


WRPOFF 


F80D 22E5 


DW 


WRPON 


F80F 29B5 


DW 


SETWS 


F811 2DB5 


DW 


CLRWS 



PLOT POINT 
PLOT VECTOR 
BLOCK DRAW 
CLEAR GRAPHICS MEM. 
BLOCK FILL 

SET MASK FOR BLOCK FILL 
DISABLE GRAPHICS 
ENABLE GRAPHICS 
SET TO PLOT BRIGHT 
SET TO PLOT DARK 
READ DATE FROM CLOCK CHIP 
SET PRINTER BAUD FROM CMOS RAM 
SET COMM. BAUD FROM CMOS RAM 
DIRECT CURSOR MOVEMENT 
READ TIME FROM CLOCK CHIP 
READ CMOS RAM 
WRITE CMOS RAM 
CURSOR UP 
CURSOR DOWN 
CURSOR RIGHT 
CURSOR LEFT 

— NOT USED — 
~ NOT USED — 

— NOT USED — 
CURSOR HOME 
REVERSE LINE FEED 

CLEAR TO END OF ACTIVE REGION 
CLAR TO, END OF LINE , 
INSERT LINE 
DELETE LINE 
SET TAB 
CLEAR TAB 
DELETE CHARACTER 
INSERT CHAR. MODE ON 
INSERT CHAR. MODE OFF 
SELECT CHAR. SIZE 
SELECT CHAR. SET 
SELECT CHAR. ATTRIBUTE 
SELECT ALT. LEAD-IN 
SOUND GENERATOR 
SET ACTIVE REGION 
DIRECT CURSOR MOVE 
RESET PARAMETERS 

SAVE PARAMETERS (SYSTEM USE ONLY) 
CLEAR SCREEN & RESET PARAMETERS 
RECALL PARAMETERS (SYSTEM USE ONLY) 
WORD WRAP OFF 
WORD WRAP ON 
SET WSFLAG (ON) 
RESET WSFLAG (OFF) 
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F813 16E7 
F815 33E5 
F817 3FE5 



DW 


DOSND 


; SOUND TONE FROM TONE TABLE 


DW 


OFFCUR 


; CURSOR OFF 


DW 


ONCUR 


: CURSOR ON 
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I DSPCYC VECTOR TABLE I 



F819 46E5 


CYCTBU DW 


LINCHK ; 


LINE NUMBER FOR DIRECT CURSOR 


F81B 6FB5 


OW 


COLCHK 


; COLOUMN NUMBER FOR ' 


F810 F7B1 


DW 


BXIT2 


•— NOT USED — 


F81F 7FE5 


DW 


TACTCK 


; TOP OF ACTIVE REGION 


F821 8AES 


DW 


BACTCK 


; BOTTOM OF ACTIVE REGION 


F823 99B5 


OW 


ATTCHK 


; NEW ATTRIBUTE 


F825 B0B5 


OW 


ALTCHK 


; ALTERNATE CHAR. SET 


F827 B9B5 


OW 


SIZCHK ; 


NEW SIZE 


F829 CCB5 


OW 


TABCHX 


; NEW TAB 


F82B 04E6 


DW 


LEDCHK 


; SOFT ESCAPE CHAR. 


F82D 0AE6 


DW 


INSCHK ; 


INSERT MODE ON 


F82F 35B6 


OW 


6RFCHK 


; GET MASK 


F831 4BB6 


DW 


GRFCX1 


; GET X MSB 


F833 6DB6 


DW 


GRFCK2 


; GET X LSB 


P835 87E6 


DW 


GRFCK3 


; GET Y MSB 


F837 9BB6 


DW 


GRFCK4 


; GET Y LSB 


F839 OBE6 


DW 


GRFCKS 


; GET AOOR. FOR CMOS READ 


F83B F0B6 


OW 


GRPCK6 


; GET ADOR. FOR CMOS WRITE 


F83D F9B6 


DW 


GRFCK7 


; GET DATA FOR CMOS WRITE 


F83F 05B7 


DW 


GETSND 


; GET SOUND BYTES AFTER 1ST ONE 


F841 1FE7 


DW 


SETSNO 


; GET 1ST SOUND BYTE 
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;l FLOPPY 


COMMAND TABLES 1 




•FORMAT... 






; COMMAND INFO 






NNNNNNNN 






lllillll 






II MBYTES TO 765 






MI0=NO, 1=YES FOR DMA 






IIO*NO, 1«YES FOR INT 






IO=RD, 1=WR TO DISK 






0=NO, 1*YES TO READ ST3 




• ADDR 


TO START DATA XFER (IF NEEDED) 




; BYTE 


COUNT- 1 (IF NEEDED) 




COMMAND TO 765 




UNIT 


# + 4«HEAD 




; CYLINDER 




; HEAD 






; RECORD 




; BYTES/SECTOR 




; SECTORS/TRACK 




; GAP 2 


\ LENGTH 




; DATA 


LENGTH 




• FORMAT 


F843 76 1 


»mttbl: DB 


76H 


F844 OOFE 1 


?MADDR: DW 


FILBUF 


F846 2700 ! 


*MCNT: DW 


40-1 


F848 4D 


DB 


40H+0DH 


F849 00 I 


*MUNIT: DB 





F84A 02 


DB 


2 


F84B OA 


DB 


HSTSPT 


F84C IE 


DB 


30 


F84D E5 


DB 


0E5H 




— — RECALIBRATE — ' — 


F84B 22 F 


tCLTBL: DB 


22H 


F84F 07 


DB 


7 


F850 00 F 


tCUNIT: DB 







READ 


OR WRITE 


F851 39 F 


tWTBL: DB 


39H 


F852 B1FB F 


tWADDR: DW 


HSTBUF 


F854 FF01 F 


WCNT: DW 


HSTSI2 - 1 


F856 46 F 


tWCMD: DB 


40H+6H 


F857 00 F 


tWUNIT: DB 





F858 00 F 


SWCYL: DB 





F859 00 F 


tWHD: DB 





F85A 01 F 


WREC: DB 


1 


F85B 02 


DB 


2 
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F85C OA 
F85D OF 
F85B FF 



F8SF 82 
F860 04 
F861 00 



F862 03 
F863 03 
F864 DF 
F865 20 



F866 23 
F867 OF 
F868 00 
F869 00 



SDSTBL: 



DB 


HSTSPT 


DB 


15 


DB 


OFFH 



;GP2 



SENSE DRIVE STATUS 



DB 
OB 
SDUNIT: DB 



82H 
4 




SPCTBL: 



SPECIFY 

DB 
DB 
DB 
DB 



3 

3 

SRT»16*DHUT 

DHLT»2*ND 



SEEK & RECALIBRATE 



sktbl: DB 


23H 




DB 


OFH 




SKUNITS DB 





;UNIT*HD»4 


SKCYL: DB 





;NCN 
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GRAPHICS VARIABLES (INITIALIZED VALUES) 



F86A FF 


MASK: 


DB 


OFFH 


;THESE MUST 


F86B 00 


MASK2: 


DB 


00H 


;STAY IN 


F86C FF 


MHASK: 


DB 


OFFH 


;ORDER 


F86D 


CURMSK: 


DS 


1 


;TO HERE 


F86B FF 


clflg: 


DB 


OFFH 




F86F 00 


cyc: 


DB 








MESSAGES 

F870 1B3D GOPOS: DB ESC/*' ; FOR DIRECT CURSOR MOVE 
F872 POSITN: DS 2 ; IN VALET 



F874 1B371BDD VALCLN: DB 
F878 1B361B5B1BVALPAR: DB 
F882 1B5836371B DB 
F889 202054494D DB 
F8AC 202020204B DB 
F8CF 2020204245 DB 
F8D9 2020434C4FNOTSET: DB 
F8E8 1B5A1BCA WBINIT: DB 
F8EC ODOA WBTRY: DB 
F8EE 5245534554 DB 
F907 ODOA OPTMSG: DB 
F909 4F5054494F DB 
F92E ODOA VALLER: DB 
F930 464154414C . DB 
F935 204552524FDERMSG: DB 
F944 DRVNUM; DS 

F945 BA DB 

F946 0D8A VCRLF: DB 
F948 4E4F2044 49TERR: DB 
F94F 5359535445CERR:,, DB 
F955 464F524D41FERR: DB 
F95B 2057524954WERR: DB 
F961 2020524541RERR: DB 
F967 2020484F4DRLERR: DB 
F96D 2020534545SKERR: DB 



ESC/7 \ESC/}'*8 OH 
ESC/6',ESC/t',ESC/Z',ESC/c',BSC/ A ' 

ESC/X',36H,037H,ESC/U',22H ;CURSOR HOME,REV. VIDEO 

' TIME DATE BRIGHTNESS VOLUME' 
KEY COMMUNICATIONS PRINTER' 
BELL V '+8 OH 
' CLOCK NOT SE'/T'*80H "• 
ESC/Z',ESC/J'*80H 
CR,LF 

'RESET OR ANY KEY TO RETR'/Y'+80H 
CR,LP 

'OPTIONS; (R>ETRY,(W)ARM BOOT,tt>GNOR'/B'«-80H 
CR,LF 

'FATAL' 

' ERROR ON DISK ' 

1 

':'*80H 
CR,LF+80H 
'NO DIS'/K'+80H 
'SYSTE'/M'*80H 
'FORMA'/T'*80H 
' WRIT'/E'+80H 
' REA'/D'+80H 
' HOM'/E'*80H 
' SEE'/K'+80H 



F973 ODOA OPTVl:. DB 

F975 435220544F DB 

F984 ODOA OPTV2: DB 

F986 435220544F DB 



0DH,0AH 

'PR TO WARM BOO'/T'*80H 

0DH,0AH 

'CR TO ABOR'/T'-80H 
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F991 
F993 
F9E3 
F9E5 
F9E7 
F9E9 
F9EA 
F9EB 
F9ED 
F9EF 
F9F1 
F9F2 
F9F4 
F9F6 
F9F8 

F9FA 



F9FB 
F9FC 

F9FD 
F9FE 



F9FF 
FAOO 
FA01 
FA02 
FA03 
FA04 
FA05 
FA06 
FA07 



VARIABLES & BUFFERS 



DISPLAY VARIABLES & BUFFERS 



DSPBFL: 


DS 


2 


dspbuf: 


DS 


80 




DS 


2 


BUPPNT: 


DS 


2 


MOVBEG: 


DS 


2 


chrpnt: 


DS 


1 


GRFCMD: 


DS 


1 


GOELS: 


DS 


2 


gdell: 


DS 


2 


GRK: 


DS 


2 


GRHOOE: 


DS 


1 


GRX: 


DS 


2 


GRXl: 


DS 


2 


GRY: 


DS 


2 


GRYl: 


DS 


2 



; NEXT 47 BYTES MUST 
DSPCYC: DS 1 



KEYCNT: 


DS 


1 


setflg: 


DS 


1 


GRFERR: 


DS 


1 


BRKCNT: 


DS 


1 


; NEXT 


21 BYTES 


M 


CURCHR: 


DS 


1 


CURATT: 


DS 


1 


wrpflg: 


DS 


1 


CURCTL: 


DS 


1 


TOPACT: 


DS 


1 


BOTACT: 


DS 


1 


MAGACT: 


DS 


1 


LEADIN: 


DS 


1 


CHRADR: 


DS 


2 



BUFFER FOR MOVING LINES 

USED BY SCROLL ROUTINES 
USED BY INSDEL 
CHARACTER POINTER 
GRAPHICS COMMAND 
VECTOR SHORT DELTA 
VECTOR LONG DELTA 
VECTOR ERROR ACCUMULATOR 
VECTOR DIRECTION POINTERS 
X COORDINATE 
VECTOR X START POINT 
Y COORDINATE 
VECTOR Y START POINT 
STAY AS A BLOCK W/DSPCYC FIRST 
DISPLAY CYCLE COUNTER 

= NORMAL CHAR 

1 = ESC PENDING 

2 = LINE # PNDG. DIR. CUR. 

3 * CHAR # PNDG. ' 

4 * SCROLL FILL PENDING 

5 = LINE # PENDING; TOP ACT. 

6 * ' ' ' BOT. ACT. 

7 - ATTRIBUTE PENDING . 

8 * CHAR. SET PENDING 

9 = CHAR. SIZE PENDING 
A = NEW TABS PENDING 
B = ALT. LEAD IN PENDING 
C = INSERT CHAR. PENDING 
D = BRIGHTNESS CHAR. PENDING 

# OF KEYS IN BUFFER 
SETUP MODE FLAG 
OVERFLOW IN X OR Y COORD. 
COUNTER FOR BREAK DURATION 



CURRENT CHARACTER SET 
CURRENT ATTRIBUTE CODE 
WRAP 0=ON, 0FFH=OFF 
CURSOR 0=ON, OFFHOFF 
TOP OF ACTIVE REGION 
BOTTOM OF ACTIVE REGION 
LINES IN ACTIVE REGION-1 
SOFT ESCAPE CHARACTER 
CHARACTER ADDRESS 

H*CHAR POSITION <0=LEFT> 
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; L=LINE# (0=TOP, 23=BOTTOM) 


FA09 


LA5TAB: DS 


i 


; LAST TAB POSITION 


FAOA 


TABS: DS 


10 


; TAB KEY 


FA14 


TEMPAR: DS 


21 


• SAVE PARAMETERS HERE 


FA29 


TEMLIN: DS 


1 


; TEMPORARY STORAGE FOR LINE# 




• KEYBOARD VARIABLES 




FA2A 


CTLCOD: DS 


1 


; CONTROL KEY CODE 


FA2B 


KEYBUF: DS 


KBUFLN 


; KEYBOARD BUFFER 


FA3B 


KEYPNT: DS 
•MISC. VARIABLES 


2 


; POINTER TO KEYBUF 


FA3D 


BRKSAV: DS 


1 


; SAVE WR5 STATUS DURING BREAK 


FA3E 


LSAVE: DS 


1 


; SAVE LSTATE IN VALET 


FA3F 


SECCNT: DS 


1 


■ SECTOR COUNTER FOR WBOOT 


FA4Q 


SNDADR: DS 


2 


j POINTER TO SOUND TABLE 


FA42 


sndcnt: ds 


1 


; COUNTER FOR SOUND TABLE INPUT 


PA43 


NUMSAV: DS 


1 


; SPACE TO SAVE NUMFLG 


FA44 


WSSAVE: DS 


1 


; SPACE TO SAVE WSFLAG 


FA45 


CONFLG: DS 


1 


; VALET CONOUT FLAG 


FA46 


LSTATE: DS 


1 


; LO-7 STATE 


FA47 


VALPNT: DS 


2 


; SAVE SP IN VALET 


FA49 


TEMSTK: DS 


2 


; SAVE SP IN SRV60 


FA4B 


DSPSTK: DS 


2 


SAVE SP IN DISPLY 


FA4D 


OKIFLG: DS 


1 


0=NAT., <>0 = OKI 


FA4E 


TONTYP: DS 


l ; 


KEYTONE 


FA4F 


BRTLBV: DS 


1 ; 


BRIGHTNESS LEVEL 


FA50 


CURBEL: DS 


1 ; 


BELL TOGGLE 


PA51 


VOLEVL: DS 


1 ; 


VOLUME LEVEL 


FA52 


SHLOCK: DS 


1 ; 


SHIFT LOCK 


FA53 


nokey: DS 


1 ; 


VALET INHIBIT FLAG 


FA54 


'■S.NDTBL: D5 ■■■ 


15 


SOUND TABLE FOR USER TONES 


FA63 


VALOP: OS 


l ; 


R/W COMMAND FOR VALET DISK 10 


FA&4 


VALCNT: DS 


l ; 


# OF A.U.'S TO READ IN VALET DISK 10 



JGRAPBieSL VARIABLES 



FA65 


GRX12: IDS 


2 


FA67 


GRy;i2: * ds 


2 


1?A69 


STRXl: DS 


1 


FA6A 


STRX: DS 


1 


tmu 


PIXBIT: DS 


1 


FMC 


^PIXBT2: DS 


1 



USED IN FILL ROUTINE 



FLOPPY VARIABLES 

ALL VARIABLES FROM HERE TO THE END MUST REMAIN AS THEY 
ARE NOW. THIER RELATIVE POSITIONS MUST NOT CHANGE. 



FA6D 


WTRCNT: DS 


2 


; MOTOR TIMER 


FA6F 


'RESULT: DS 


1 


; # OF BYTES TO GET FROM U765 


FA70 


t: D"SKCMD: DS 


1 ; 


DISK COMMAND 


FA71 


UNACNT: DS 


1 ; 


UNALLOC REC CNT 


FA72 


UNADSK: DS 


1 


; LAST UNALLOC DISK 
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FA73 
FA75 
FA76 
FA78 
FA79 
FA7A 
FA7C 
FA7D 
FA7E 
FA80 
FA81 
FA82 
FA83 
FA84 
FA65 
FA66 
FA87 
FA88 
FA89 
FA8B 
FBOB 
FBOC 
FB24 
FB44 
FB5C 



FB7C 
FB7D 
FB7E 
FB7F 
FB80 
FB81 
FB82 
FB83 
FB84 

FB85 
FB95 
FBA5 

FBA9 
FBAA 
FBAB 
FBAC 
FBAD 
FBAE 
FBAF 
FBBO 



UNATRK: OS 
UNASEC: DS 
HMFLGS: DS 
SAVECH: DS 
SEKDSK: DS 
SEKTRK: DS 
SEKSEC: DS 

hstdsk: ds 
hsttrk: ds 
hstsec: ds 
sekhst: ds 
hstact: ds 
hstwrt: ds 
hsthd: ds 
erflag: ds 
rsflag: ds 

READOP: DS 
WRTYPE: DS 
DMAADR: DS 
DIRBUF: DS 
RECNT: DS 

alvo: 
csvo: 
alvi: 
csvi: 



DS 
DS 
DS 
DS 



2 

1 

NDISK 

1 

1 

2 

1 

1 

2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

128 

1 

DSKSIZ/8+2 

DIRENT/4 

DSKSIZ/8+2 

DIRENT/4 



LAST UNALLOC TRACK 

LAST UNALLOC SECTOR 

HOME BEEN HERE BEFORE FLAG 

SEEK DISK NUMBER 
SEEK TRACK NUMBER 
SEEK SECTOR NUMBER 
HOST DISK NUMBER 
HOST TRACK NUMBER 
HOST SECTOR NUMBER 
SEEK SHR SECSHF 
HOST ACTIVE FLAG 
HOST WRITTEN FLAG 
HOST HD (SIDE) FUG 
ERROR REPORTING 
READ SECTOR FLAG 
1 IF READ OPERATION 
WRITE OPERATION TYPE 
CPM DMA ADDRESS 
SCRATCH DIRECTORY AREA 
RETRY COUNT 

; ALLOCATION VECTORS 

: CHECK VECTORS 



THE NEXT 9 ITEMS MUST STAY IN THIS ORDER 



DS 
DS 



DSKCYC: DS 

STO: DS 
STl: 
ST2: 

CSTAT: DS 

HSTAT: DS 

RSTAT: DS 

NSTAT: DS 

resnum: ds 

FCBV: DS 

aui: ds 
currec: ds 

• 

dskcnt: ds 
okibyt: ds 
scnds: DS 
secsio: DS 
MINS: DS 
MINS10S DS 
HRS: DS 
HRS10: DS 



DISK CYCLE 

STATUS 

STATUS 1 

STATUS 2 

CYL AT STATUS TIME 

HEAD AT STATUS TIME 

SECTOR AT STATUS TIME 

# OF DATA BYTES AT STATUS TIMfi 

NUMBER OF RESULT BYTES ACTUALLY READ 

FCB FOR VALET 

PART OP FCB, START OF A.U. FIELD 
FOR RANDOM ACCESS 

DISKOP TIMEOUT COUNTER 
STORAGE FOR CLOCK 



FBB1 
FDB1 
0093 
FDC1 



hstbuf: ds hstsiz • host buffer 

bytbuf: ds 16 ; for valet screen save 

number eou recnt-savech 

endram equ $ 
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STACK 


AREA 


FF60 


ORG 


CCP+3B60H 


FF60 


OS 


61 


FF9D 


valstk: DS 


1 


FF9E 


DS 


36 


FFC2 


INTSTK: DS 


1 


FFC3 


DS 


39 


FFEA 


DSPTEM: DS 


1 


FFEB 


DS 


20 


FFFF = 


ENDKRK EOU 


$ 



FFFF 



END 



